« Compte bancaire sur Macintosh 
V Utilisation de la carte langage 
« Deux fonctions pour ProDOS 
• DOS et ProDOS en memoire 



Copie d'ecran sur Silentype 
Manipulation de catalogue 
Assembleur et ProD 



Zoom HGR 



•rtKffc 



mm 





ISSN : 0294-6Q68 





Apple, loglque ei sysiemes 
experts, 

par Rene DESCAMPS. 
224 pages - 120.00 FF. 

12 programmes en Basic. 4 
fichiers proposeni de cons- 
tniire un"moEeurd"inferen- 
ce" capable de irouver la so- 
lution d'enigmes e« de batir 
des raisonncments. 

Rnsir Plu«. 80 routines Rnr 
Apple l! v 

par Michel MARTIN. 
144 pages - 95.00 FF. 

Basic Plus vous propose 
80 louiines pour "musclcr" 
votre machine, 80 maniereb 
de simuler des fonciions 
que vous n 'aunez jamais cru 
pouvoir utiliser. 

Exploitation d'enqueles sur 
Apple II tt IBM/PC, 
parJ.-F. GRIMMER. 
176 pages - 120,00 FF. 

L'enscmblc des program- 
mes proposes permel d*ex- 



ploiter. &vtc queiques 
connaissances inlormaii- 
ques. des fichiers de donnees 
nurneriqnes sur Apple II ei 
IBM/PC 

Dieted que *ur Apple I; 
22^ pages- 120.00 FF. 

Mange; equilibre grace a 
voire ordinate ur 

Apple en famllle. 

parJ.-F.SEHAS. 
Z32 pages - 120.00 FF. 

40 programmes utiles en 
Basic. 

Super Jeux Apple. 
256 pages- 120.00 FF. 

50 programmes de jeux en 
Basic sur Apple. 

Apple, modems el serveurs, 

par Alain MARIATTE. 
224 pages - 130,00 FF. 

Pour apprendre a se ser- 
vir d un modem el se 
familiariscr avec les outils 
telematiques. 





En vente en librairie, en boutique informatique et aupres de P.S.I. Diffusion 



P.S.I. DIFFUSION B.P. 86 
77402 LAGNY-SUR-MARNE CEDE 
Tel.: (6) 006.44.35 
Telex: PSIDIF 600978 F 



Pom's 20 



Septemhre-Octobre 
1985 




Manipulation de catalogue 

Jean-Luc Arnaud 



23 




Gestion de comptes 
bancaires 



44 



Les annonceurs 



P.SJ. 


2 


MM.D.C. 


15 


APPLE 


38/39 


Ordinaieur Individuel 


40 


Tilicompo 


63 


Club Apple 


75 


Guide-Micro OJ. 


76 



Utilisation de 
la carte langage 

Hervi Roy-Coniancin 



Copie d'ecran 
graphique sur 
Silentype 

Gerard Becher 




He 



AM ProDOS ? 

Alexandre Awane 





S3 
11 



Quatre fonctions pour le Basic 

Sylvie Gallet 





50 



Editorial Courrier des I Micro-infos 

Hervi Thiriez \ Lecteurs Olivier Hen H Jean-Michel Gouriviteh 





71 




67 



Pom's n° 20 



3 



Editorial 



laser et 100 % Apple pour la preparation de Pom's a 
partir de ce numero. Conlribuent aux pages qui suivent : 
des Macs 128 et 512 Ko, une imprimante a laser, des 
Apple ][+, lie. lie, des liaisons serie pour que ce beau 
monde communique, MacPaint, MacDraw, MacWrite, AppleWriter et quelques 
programmes 'maisori. Cela pour une presentation que vous trouverez, nous Vesperons, 
amelioree et qui prendra certainement son aspect definitifdes le numero 21. 

Les conges vous ont permis, si ce n'est de bronzer, tout au moins de penser a Pom's. Nous 
recevons de nombreuses contributions qui nous promettent de belles pages pour les 
prochains numeros : continue! ! 

Toujours un sommaire fourni : 

De nouvelles fonctions accessibles par l'& apres un simple BRUM : tel est I'objet du 
programme de Sylvie Gallet. Une utilisation originale de votre carte langage -y stocker 
des variables chaines de longueur fixe - il s'agit d'un utilitaire de Herve 
Roy-Contancin. 

Deux articles consacrds d ProDOS dans ce numero : 

• une trds belle de contribution de Frangois Sermier qui permet de disposer de DOS et 
ProDOS simultanement en memoir e. Pvurquoi ne pas editer vos programmes Basic 
avec EPE sous DOS puis les sauvegarder sous ProDOS ? 

• une etude approfondie des appels en assembleur par Alexandre Avrane avec la mise 
en place de commandes extemes, un Tdump et un Init quifaisaient defaut. 

Gerard Becher a ecrit un programme de copie d'ecran sur Silentype qui f outre son 
aspect pratique pour les possesseurs de ces imprimantes, presente un interet didactique 
pour tous par son source particulierement commente. Dans le mime esprit, avec Pascal 
Cantot, les Asl, Lsr, Rol et Ror ne devraient plus avoir de secret pour vous. 
Egalement, un volumineux programme assembleur de Jean-Luc Arnaudpour editer le 
catalogue de vos disquettes. 

Converti au 68000, nous retrouvons Gerard Michel dans le cahier Mac. Belle 
contribution de Jean-Luc Bazanegue et Christian Piard : La gestion de vos comptes 
bancaires personnels sur Macintosh, presentation "Macintosh" bien qu'exceptionnellement 
sans coccinelle !. . . 

Et, comme a Vaccoutumee, les rubriques de Jean-Michel Gourivitch et Olivier 
Herz. 

Herve Thiriez 

Ont collabore a ce numero : Alexandre Avrane, Jean-Luc Arnaud, Jean-Luc Bazanegue, Gerard 
Becher, Pascal Cantol, Sylvie Gallet, Jean-Michel Gourevitch, Olivier Herz, Gerard Michel, Hcrvc 
Roy-Contancin, Frangois Sermier. 

Directeur de la publication, redacteur en chef : Herve Thiriez. 

Redacteurs : Alexandre Avrane, Olivier Herz. 

Siege social : Editions MEV, 49, rue Lamartine, 78000 Versailles. Tel : (3) 951 24 43. 
Publicite : Editions MEV. 
Diffusion ; N. M. P. P. 

Impression : Rosay, 47, avenue de Paris, 94300 Vincennes. Tel : (1) 328 18 63. 
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Quatre fonctions 

SylvieGallet pOUV B(lSiC 



Le programme prcsente 
ici est classique, mais 
est d'une grande utili- 
te pour les program - 
meurs en Basic. En effet, par 
I'intermediaire de Tampersand, il 
permet : 

• de supprimer les REMs d'un 
programme Basic. Toutefois, il 
ne tient pas compte des 
GOTOs et des GOSUBs ; 

• d'editer une ligne de program- 
me, sans introduire d'espace 
superflu. Un petit problemc 
subsiste : il s'agit des REMs 
comportant un CTRL-J ; 

. le POKE 33,28 (bien prati- 
que) ; 

• lacc&s au Mini-Assembleur ; 
celui-ci a ete reloge en S8A9A 

mais peut £trc aussi appclc par 
S8C00G; 
■ l'acc&s i toutes les fonctions 
du RENUMBER de la dis- 
quette Maftre. 

Mode d'emploi 

En lancant le programme COM- 
MANDES, vous obtiendrez la 
liste des commandes autorisees 
ainsi que leur syntaxe. Le 
programme UTILIT AIRES con- 
tient deja RENUMBER et le 
Mini-Assembleur. II ajuste 
lui-meme la HIMEM et le vecteur 
ampersand (8c). II se lance par : 



BRUN UTILIT AIRES, A$8A8E 

II y a une petite precaution $l 
pre n dre . Apr6s M AXFI LES , 
HIMEM ou FP, il est indispen- 
sable de relancer UTILITAIRES. 

Les commandes 

La syntaxe 

- &P effectue successivement un 
HOME etun POKE 33,28 

- &LNNN liste la ligne de 
programme dont le numero est 
donnc par NNN 

- & C supprime les REMarques 
du programme 

- & A donne acc£s au Mini- 
Assembleur (Basic) 

- 8C00G pour le Mini-Assem- 
bleur (Moniteur) 

Pour le RENUMBER, la syntaxe 
est un peu plus lourde. II faudra 
taper : "RENUMBER:*" suivi 
des paramfctres F, I, S, E, H, M. 
Ces param&tres representent res- 
pectivement : 

• lc premier nouveau numero de 
ligne (first); 

• 1'increment ; 

• le numero de la premiere ligne 

a renum6roter (start); 

• le numero de la derntere ligne & 
renumeroter (end); 

• la protection du programme 
pour fusion (hold); 

• la realisation de la fusion 



(merge); 

Pour les utilisateurs n'ayant pas 
la disquette d'accompagnement, 
voilk comment il faut proceder 
pour RENUM et MINI : 

] FP (HIMEM: 38400 soit 
$9600 en hexa) 
] RUN RENUMBER 
]BSAVE RENUM, A$8E00, 
L$800 

] BLOAD INTBASIC, A$6000 
I CALL-151 

* 8535: 4C 2F 8B 

* 8559: 4C 2F 8B 

* 85BD: 20 CE 8B 

* 85DB: 20 CE 8B 

* 85E5: 20 CE 8B 

* 8631 : 4C F6 8A 

* 8666: 4C 2C 8B 

* BSAVE MINI, A$8500, 
L$170 

* BLOAD MINI, A$8A9A 

* BSAVE MINI, A$8A9A, 
L$170 

* BLOAD UTILITAIRES OBJ, 
A$8A8E 

* BLOAD MINI 

* BLOAD RENUM 

* BSAVE UTILITAIRES, 
A$8A8E, L$B72 

a 



Programme 

UTILITAIRES SCE 
(Assembleur LISA 2.5) 

1 ; 

2 ; 

3 *************** * *** * **** ****** 

4 * * 

5 * UTILITAIRES DE BASIC * 

6 • « 

7 * S- GALLET 27-2-1985 * 



****************************** 



9 

10 ; 

11 ? 

12 STXERR 

13 HOME 

14 FRMNUM 

15 GET ADR 

16 FNDLIN 

17 ILLQTY 
IB OUTPO 

19 G1VAYF 

20 MOVAF 



EQU 5DEC9 
EQU SFC58 
EQU SDD67 
EQU 5E752 
EQU 5D61A 
EQU SE199 
£QU 

EQU SE2F2 
EQU 5EB63 



21 FDIVT EQU 5EA69 

22 CONINT EQU 5-E6FB 

23 LTNPRNT EQU SED24 
2 4 CRDO EQU &DAFB 
25 BASIC EQU $FEB3 
2 6 SIGNFLT EQU SE301 
27 AMPER EQU $3F5 

2 8 RENUMBER EQU 58E00 

29 MINI EQU S8C0O 

31 LARGFEN EPZ $21 

32 CHRGET EPZ SB1 
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33 


LOW1R 




103 




JMP 


MINI 


173 




3PL 


PRINT 


34 


LiNNUM 


JiFZ $50 


104 


T5: 






174 


TOKEN: 






1 c 
J3 






105 




JMr 


EjttWUnBfifi 


1 75 




SEC 




J fa 


r At- 


t*ri >> c rtr» 


106 


ERR : 






176 




SBC 


a. 


7*7 


t. V 




1U / 




TV 15 




1 / / 




1AX 




38 


CH 


EPZ S24 


108 








170 




STY 


AUXIL 


39 


LT 


EPZ SFE 


109 


I 






179 




LDY 




40 


TXTPTR 


EP Z 5B 8 


110 


POKE: 






180 




STY 


r At* 


41 


AUX 


EPZ SFC 


111 








181 




LDY 


t$CF 




H IMEM 


JLtftl Y ' J 


112 




J5R 




182 




STY 




43 


CAR . LU 


EPZ SFA 


113 




BNE 


ERR 


183 




LDY 


• »r r 


1 1 


CAR . ECR 


Jjf & » r t- 


114 




J5R 


HOME 


184 


LIT : 






4b 


LS 


EPZ $t'ti 


115 




LDA 


ffSIC 


185 




DEX 




46 


TEMP 


EPZ SF9 


116 




STA 


LARGFEN 


186 




3E0 




47 


PAGEND 


EP Z SAF 


117 




RTS 




187 


LIT3 : 






48 


TXTTAB 


EPZ 567 


118 








188 




JSR 


1 . I JL 


49 






119 


* 






189 




BPL 


T TT1 


50 






120 


EDIT: 






190 




BMT 


JjJ. 1 


51 




ORG 58A8E 


121 








191 


BON lOftiiDi 


■ 




52 




OBJ S800 


122 




LDA 


TXTPTR 


192 




T..DA 


is 9fl 


53 






123 




STA 


AUX 


1 3 J 






otiTnm 


54 


N«X****** ******** ************* 


124 




LDA 


TXTPTR+1 


194 


PRNTINST 






55 


t 




125 




STA 


AUX+1 


i nc 
1 90 




JSR 


TV]i**n vi 


56 


ORIGINE: 




126 


LITCAR: 






196 




BM1 


rjFHN{"*AT? 


57 






127 




JSR 


CHRGF.T 


197 




JSR 


OIlTflOl 
- . — . - 


58 




NOP 


128 




DCC 


LITCAR 


198 




BNE 


PRNTINST 


59 




LDA fORIGINE 


129 




BNE 


ERR 


199 


DERNCAK : 






€0 




STA HIMEM 


130 




LDA 


AUX 


1 A A 






OUTDOl 


61 




LDA /ORlGlNE 


131 




STA 


TXTPTR 






LA) 1 


AUXIL 


62 




STA HIMEM+1 


132 




i-JJn 


any* i 


9 fl? 

4m V C 






#S20 


63 




JMP INIT 


133 




STA 


IXIP 




HDTV? ■ 






64 


r 




134 




INC 


1 Air IK 


9 fid 






OUTDOl 


65 


********* * * * * **************** * 


135 




BNE 


CALCFORM 


*> a c 




Tun 


BOUCLE 


66 


f 




13C 




INC 


TXTPTR -i-l 


one 


r IN : 






67 


; DEBUT DU MINI ASSEMBLEUR 


137 


CALCFORM 






207 




LDA 


T.T-*- 1 

Li J ~ i 


68 






138 




JSR 


FRMNUM 


Z0B 




LD I 


LT 


69 


;FIN DU 


MINI ASSEMBLEUR 


139 




BC3 


ERR 


1 Art 




TCD 

Jan 


CIVAYF 


"1 A 

/u 


M IN IASD: 




14U 




ICQ 

Jon. 










MOV Ah' 


71 






141 




IDA 


#SF9 


Oil 




t nv 


I.ARRFF.N 


72 


ft ft*** » * * 




142 




CMP 


LINNUM* 1 


tic 




Tin 


SIGNPLT 


73 






143 




BCS 


CHLIGN 


Z 1 J 






FDIVT 


74 




ORG MINIASD 1 $170 


144 




JMP 


ILLQTY 


214 




JSR 


CON TNT 


75 




OBJ $97C 


145 


CHLIGN: 






cia 




TXA 




76 






146 




JSR 


FNDLIN 


9 1 c 






#SFF 


77 


IMIT: 




147 




BCS 


PRTLICN 


9 1 "7 




ft f 




78 






148 




JMP 


STOP 


? 1 ft 




rtJJ V— 


cv 


79 




TDA #$4C 


149 


PRTLIGN: 






21 9 




RM7 


STOP 


80 




STA AMPER 


150 




JSR 


CRDO 


99n 

-I « V 




U*lr 


l?18 


81 




LDA JDEBUT 


151 




JSR 


CRD0 






Lilt I 

Or L 




82 




STA AMPER+1 


152 




LDA 


t$20 


9 9 9 




ill A 


CV 


83 




LDA /DEBUT 


153 




J5R 


OUTDOl 


t *. J 








84 




STA AMPER+2 _ 


154 




LDA 


#520 


9 9<1 




JMP 


BASIC 


85 




JMP BASIC 


155 




JSR 


OUTDOl 


TIC 


* 






86 


UEUUT: 




156 




LDA 


LINNUMt 1 


1 1 ti 


* 






87 






157 




LDX 


LINNUM 


9 99 


*** QHITC 


-PROGRAMMES *** 


88 


Tli 




158 




JSR 


LINPRNT 


9 90 


r 






89 




CMP f'P' 


159 




LDA 


CH 










90 




PMF. T2 


160 




STA 


LT 


9 ir\ 


DUTUU1 : 






91 




JMP POKE 


161 




LDA 


#500 


*: Ji. 








92 


T2: 




162 




STA 


LT+1 


nil 




JSR 


OUTDO 


93 




CMP #-•«£« 


163 




LDA 


#520 


Til 




TNC 


T.T 


94 




BNE T3 


164 




JSR 


OUTDOl 


">~l A 
t J1 




BNE 


RETURN 






JMP EDIT 


165 


LIST : 






9 

Z J 3 




INC 


LT+1 


yfa 


T3: 




166 




LDY 


#S3 




OCT! (DM ■ 






y » 




cmp rc 


167 


UUUL'Lt : 






9 17 




RTS 




98 




BNE T4 


168 




JSR 


INCR.Y2 


238 








99 




JMP COMPACTE 


169 




LDA 


{LOWTRi , Y 


239 


; 






100 


T4: 




170 




BNE 


SUITE 


240 


INCR.Yl: 






101 




CMP *'A' 


171 




JMP 


FIN 


241 








102 




BNE T5 


172 


SUITE: 






242 




1NY 
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243 




BNE 


MP AG! 


?flQ 




OR A 


TEMP 


335 




RTS 




244 




INC 


FAC 1 1 


290 




BEQ 


FIN. REM 


336 


f 






245 


MPAG1 : 






291 




LDX 


#52 


337 


ECRIRE 


INC 


CAR.ECR 


2dfi 




T.nA 


(FAC) , Y 


292 


3X2 


JSR 


LIRE 


338 




BNE 


E 


247 




RTS 




293 




JSR 


ECRIRE 


339 




INC 


CAR. BCRt 1 


248 








294 




DEX 




340 


E 


STA 


(CAR.ECR), Y 


249 








295 




BNE 


3X2 


341 




RTS 




250 


INCR.T2: 






296 




JMP 


DEBUTREM 


342 








251 








297 


FIN. REM 


JSR 


ECRIRE 


343 


LIRE 


INC 


CAR.LU 


252 




INY 




298 




JSR 


ECRIRE 


344 




BNE 


L 


253 




BNE 


MPAU2 


299 




LDA 


CAK.ECK 


345 




INC 


CAR.LU+1 


254 




INC 


LOWTR+1 


300 




STA 


PAGEND 


346 


L 


T.nA 


CAR.LU+1 


255 


MP AG 2 3 






301 




LDA 


CAR.ECRi 1 


347 




CMP 


PACEND'l 


256 




RTS 




302 




STA 


PAGEND +1 


348 




BNE 


LL 


257 








303 




JMP 


BASIC 


3 49 




LDA 


CAR.LU 


258 








304 


SUITEREM 


CMP 


#5B2 


350 




CMP 


PAGEND 


259 


*************************** 


305 




BEQ 


REM 


351 




BNE 


LL 


260 


■ 






306 




JSR 


ECRIRE 


3 52 




JMP 


FIN . REM 


261 


! 






307 




JMP 


DEBUTREM 


353 


LL 


LDA 


(CAR.LU) , Y 


262 


j 






308 


REM 


LDA 


#53 


354 




RTS 




263 


COMPACTE 






309 




CLC 




355 








264 








310 




ADC 


LS 


356 


CHAINER 


LDA 


CAR . ECR 


265 


; 






311 




PHP 




3 57 




CLC 




266 


INIT.REM 


LDY 


*so 


312 




CMP 


CAR.ECR 


J58 




ADC 


#51 


26/ 




LDA 


'XX'l'TAH 


313 




BNE 


NON 


3 S9 
j j j 




STA 


(LS) , Y 


268 




STA 


LS 


314 




LDA 


ISO 


3 60 




LDA 


CAR . ECR+ 1 


2 SO 




CLC 




315 




PLP 




361 




ADC 


#50 


270 




ADC 


#53 


316 




ADC 


LS+1 


362 




INY 




271 




STA 


CAR.LU 


317 




CMP 


CAR.ECR+1 


363 




STA 


(LS) ,Y 


272 




STA 


CAR.ECR 


31B 




BNE 


NON 


364 




DEY 




273 




LDA 


TXTTAB+1 


319 


REM.FL 


LDA 


#54 


365 




STA 


LS+1 


274 




ETA 


LS+1 


320 




STA 


TEMP 


366 




LDA 


CAR . ECR 


275 




ADC 


#40 


321 




JSR 


DECALE 


367 




STA 


LS 


276 




STA 


CAR.LU+1 


322 




JMP 


TESTFIN 


369 




INC 


IS 


277 




STA 


CAR.ECR+1 


323 


non 


LDA 


#51 


369 




RTS 




278 


i 






324 




STA 


TEMP 


370 








279 


DEBJJTREM 


JSR 


LIRE 


325 




JSR 


DECALE 


371 


•*«»***■ 


*K*******fc****XXXXX*** 


260 




BNE 


SUITEREM 


326 




JMP 


ZFL 


372 








281 


ZFL 


JSR 


ECRIRE 


S2I 


DECALE 


LDA 


CAR.ECR 


373 


; RENUMBER SE 


TROUVE I CI 


282 




JSR 


CHATNF.R 


328 




SEC 




374 








283 


TE5TFIN 


LDX 


152 


329 




SBC 


TEMP 


375 


»******I**X*II(K*X*X**XXKS •««« « 


284 


BX1 


STA 


TEMP 


330 




BCS 


X 


376 








285 




JSR 


LIRE 


331 




DEC 


CAR.ECR+1 


377 


F INAL : 






28b 




JSR 


ECRIRE 


332 


X 


STA 


CAR.ECR 


378 








287 




DEX 




333 


30'JCLE.L 


JSR 


LIRE 


379 


LONGUEUR 


F.QtJ 


FTNAL-ORIGINE 


288 




BNE 


BX1 


334 




BNE 


BOUCLE . L 


3 80 




END 





Programme COMMANDES 

1 TEXT : HOME : SPEED- 255:D$ = CHR$ (4) 

20 PRINT" COMMANDES:" 

30 PRINT : PRINT " - 8C00G MINI ASSEMBLEUR 

(MONITEUR)": PRINT " - &A MINI ASSEMBLEUR 

(BASIC)" 

40 PRINT : PRINT" - &P HOME+POKE33.28": PRINT : 
PRINT " - &LNNN LISTE LA LfGNE NMN POUR": 
PRINT" EDITION" 

50 PRINT : PRINT " - &C SUPPRIME LES 
REMARQUES" 

60 PRINT : PRINT "RENUMBER: & SUM DE:": PRINT " - F 



1 ER NOUVEAU NUMERO" 
70 PRINT " - 1 INCREMENT": PRINT " - S 1 ERE 

LK3NE A RENUMEROTER" 
80 PRINT " - E DERNIERE LK3NE A RENUMEROTER" 
90 PRINT " - H PROTEGE LE PRGM POUR FUSION": 

PRINT " - M REALISE LA FUSION" 
100 PRINT : PRINT "ATTENTION! APRES 'MAXFILES', 
HIMEM' OU 'FP\ IL FAUT RELANCER 
'UTILITAIRES'" 
110 PRINT D$"BRUNUTILfTAIRES" 
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Recapitulation 

UTILIT AIRES OBJ 



8A9E- 


EA 


A9 














8A90- 


8E 


85 


73 


A9 


8A 


85 


74 


4C 


8A98- 


OA 


8C 


A5 


8D 


9F 


A5 


A9 


9D 


8AA0- 


8D 


7C 


A5 


8D 


AO 


A5 


A9 


EA 


8AA8- 


8D 


DF 


A6 


8D 


EO 


A6 


20 


58 


8AB0- 


FC 


A2 


00 


BD 


30 


08 


FO 


17 


8AB8- 


20 


ED 


FD 


E8 


DO 


F5 


8D 


CC 


8AC0- 


CF 
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Est rtnnstitve rfe.i fichiers 
UTILITAIRES OBJ, MINI, RENUM. 
C'f*st 7e «?eu J finhi(*r necessaire 
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C9 


FO 


07 


C9 


00 



9600- 46 



Recapitulation MINI 

Sert a constituer If*, fichier 
UTILITAIBES. II est ubitsnu d 
parti r dti fichier INTBASIC de la 
tiisquette Master j se reporter 

au texte. 



Recapitulation 

RENUM 

Sert a constituer le fichier 

UTTLITAIRCS . 11 eat obtonu i 

partir du fichier RENUMBER de la 

disquette Master ; sip reporter 
t&xte. 



D 
O 



[fin](Q)Oi]i©[U][r dftc 



Jacques Supemant Apple ][+, //e, //c 

Ce moniteur autorise un controle de Tex^cution des routines 

en langage machine. 



1 



Un mode Trace et Pas k Pas tits 6voIu6s et s£lectifs sont compters 
par un accfcs direct aux registres du 6502 (ou 65C02). 



> 



La gestion des fenetres d'ecran simplifie le mode trace. 
Une routine permet la recherche de suites d'octets. 




> 



Un mini-assembleur ttts souple fait partie de Max. 
Une ligne de commande peut dcvcnir unc bouclc avcc l'ordre JUMP 




Les fichiers source 
sontsurla 
disquette. 

Disquette et 
documentation : 
150,00 FTTC 
franco . Bon de 
commande p 74. 



Pom's n 20 



Utilisation de la 
carte langage 

Herve Roy-Contancin 



A fin dc rassurer 
pleinement les lecteurs 
de Pom's redoutant 
l'abandon de la ligne 
6502, voici un programme qui va 
permettre aux possesseurs 
d'Apple (II et 11+ avec cane 



langage, lie et lie) d'utiliser cette 
carte en DOS 3.3 sous Applesoft. 
Les 16 Ko de la carte langage, 
normalement inaccessibles en 
Applesoft, peuvent enfin etre 
utilises pour y stocker une ou 
plusieurs tables alphanumeriques. 



| EntrieLONGENR I 37888 (S940O) 

I 

Emrfe tone 

T 

1 EatrfeiaJioc \ 

[ iNOfiyR^Tr" 1 "] 



37893 

17R98 
37903 



j CalailNQPl: \ 



| Olcul N0P2.3,4 \ 



NOP1 = INT (40W/LONGENR) 

NOP2 - 2 * NOP1 - 1 
NOP3 - NOW * NOP2 
NOP4 - NOF1 + 



TESTO 



NOENS : NOP4 

- 1 - 



Error 



TEST 1 



NOENR ; NOP3 

> : [ ...<- | 



TEST 2 



NOB5R:NOW 



BLOC4 "I 



ixxw 



BLQC3 ~| 



BANK 2 



NOW 



CALCBUF 



JJOENR 


NOP! 


> 


<* 






1 . 


1 J 1 

BLOC2 




BLOC 



PONC-2 



Cifettl itirtae ES | 
I ADR >BUPPBR~1 

L_l 



-} OUI 



I Cilcul *drcsK ES I 

I 

| BUPPER-> ADR j 



Organigramme 



II est important de noter que 
toutes les chaines de caracteres 
doivent avoir la mcmc longueur, 
cette longueur etant fixee au 
depart (voir ci-dessous). 

Pratiquement... 

• En premier lieu, ilfaut charger 
le programme par : 

BLOAD LANGl.OBJ0,A$9400 

■ puis placer une HIMEM: 
37888 afin de ne pas ^eraser le 
programme LANG 1. OB JO par 
les variables du programme 
Applesoft. 

• il faut ensuite definir une 
variable E$ en rinitialisant h la 
longueur des chaines de la table- 
Si la longueur est 8, faire par 
exemple E$ = "BONJOUR!". 
Cette variable E$ est indispen- 
sable ; elle doit etre la premiere 
variable rencontree dans le 
programme Applesoft ; enfin, on 
ne doit jamais 1'ecourter mais il 
est possible de raj outer des blancs 
pour conserver la meme 
longueur : K$=" HELLO 

• On peut ecrire ou lire une 
chaine sur la carte langage en 
faisant : 

CALL37888,LNG,FONC,IHJB 

ou LNG est la longueur des 
chaines (c'est-S-dire la longueur 
initiale de E$), FONC vaut 1 en 
lecture, 2 en ecriture, IH est 
1'indice haut et IB 1'indice bas du 
numero de la chainc (e'est-a-dire 
son numero est IH * 256 + IB). 
Ce numero doit etre compris entre 
1 et 4 * (4096 / LNG) car la carte 
langage peut stocker 4 fois 4 Ko 
et 4Ko = 4096 octets. 
L'indice IH peut aussi etre 
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considere comme un numero de 
table dans une gestion de 1 & 4 
tables de 256 chaines. 

Par exemple, la lecture de la 
39eme chaine donne, si la 
longueur est 32 : 

CALL 37888,32,1,0,39 : PRINT 
E$ 

Ceci est equivalent I PRINT 
E$(39) pour un tableau de 
chaines en Applesoft. 

Comme le montre le programme 
EXRMPLH-F.ANG1 , il est 
possible d'abreger l'ecriture de la 
syntaxe si certains parametres 
restent inchang^s, mais il faut 
alors changer l'adresse du CALL. 

CALL37888,LNG,FONC,IHJB 
(est obligatoire pour le premier 
appel) 

CALL37894,FONC,IH,IB 
(pour les autres appels) 

CALL 37900,1H,IB 
(si FONC ne change pas) 
CALL 37906 JB 



(si IH ne change pas) 

CALL 37912 
(si rien a change) 

Des contr61es sont effectues et les 
messages d'erreur sont les 
suivants : 

• si FONC <> 1 et FONC <> 2 : 
cela correspond h un 
ILLEGAL QUANTITY 
ERROR 

• si IH * 256 + IB > INT (4096 
/ LNG) * 4 on obtient un OUT 
OF MEMORY ERROR 

• si c'est une erreur sur E$ : 
STRING TOO LONG ERROR 
(en fait c'est l'inverse, mais le 
message STRING TOO 
SHORT n'existe pas !). 

Techniquement... 

L'adresse de debut choisie 
($9400, soit 37888 en decimal) 
peut etre modifiee, h condition de 
modifier les quelques JSR du 
programme. II faut bien faixe 



attention car 3 octets sont 
reserves, a la fin de 
LANG1.OBJ0, pour y stocker 
des variables, afin de ne pas 
encombrer la page zero. Le 
programme gfere la mdmoire en 4 
blocs de 4 Ko, les chaines y sont 
enregistrees bout S bout. 

AprSs la saisie des parametres par 
la routine GETBYTC, le 
programme calcule le nombre 
d'enregislrcincnts par blocs, soit 
4096/LNG et on deduit le dernier 
numdro de chaque bloc (NOP1, 
NOP2, NOP3 et NOP4). II 
calcule ensuite ADR, adresse 
concernee sur la carte langage, en 
fonction du bloc auquel appartient 
renregistrement demande ($DO00 

- $DFFF/BANK1 pour le 
BLOC1, $D00O - $DFFF/ 
BANK2 pour le BLOC4, $EO0O 

- SEFFF pour le BLOC2 et 
$F000 -$FFFF pour le BLOC3). 
Hnftn, BUFFKR est l'adresse de 
la variable E$. 

A noter que la fonction lecture 



Programme EXEMPLE-LANG1 

10 REM EXEMPLE 

20 REM 

30 REM* PROGRAMME DE DEMONSTRATION 
40 REM ' UTILISATION DE LANG1.OBJ0 
50 REM* H.ROY-CONTANCIN 
60 REM 

70 HIMEM: 37888: REM INDISPENSABLE 

75 E$ = "JE SUIS LE NUMERO 39 HA HA HA HA";D$ = 
CHR$ (4) 

76 REM E$ DOIT ETRE LA PREMIERE VARIABLE DU 
PGM 

80 PRINT D$"BLOAD LANG1.OBJ0,A$9400" 
90 BL$ - " ": REM 32 

BLANCS 
100 LNG-32:ECR-2;LEC- 1 

110 CALL 37888 ( LNG,ECR 1 0,39: REM ECRITURE DU 39 

120 E$ = BL$: REM ON EFFACE 

130 CALL37888.LNG,LEC,0,39: PRINT E$: REM 

RELECTURE 
140 REM ET MAINTENANT 259 > 255 
150 I- 259:E$ - "ET MOI ET MO! LE 259 ME VOICI OK" 
155 CALL 37888.LNG.ECR, INT (I / 256). I - INT(l/256)' 

256 
160 E$ = BL$ 

1 70 CALL 37888,LNG,LEC I INT (I / 256),l - INT (I / 256) ' 

256: PRINT E$ 
180 E$«BL$ 

190 REM POUR LES PARESSEUX 

200 CALL (37888 + 6),LEC, INT (I/ 256),l- INT (I/ 256) ' 

256: PRINT E$ 
210 REM ENCORE PLUS COURT 



220 E$ = BL$: CALL (37888 + 12),0,39: PRINT E$ 
230 REM ET POUR FINIR 
235 E$ - BL$ 

240 CALL (37888 + 18),39: PRINT E$ 
250 END 

Programme LANG1 

(Assembleur Toolkit) 



SOURCE FILE: LANGl 








0000 


1 


*********************** 


0000 


2 


* UAmi 






0000 


3 


* CARTE 


LANGAGE BASIC * 


0000 


4 


* 03/02/85 


* 


0000 


5 


* H.ROY 


-CONTANCIN * 


0000 


c 


a********************** 


000B 


: 7 


NOP1 


F.QU 


$0R 


0018 


: 8 




EQU 


$18 


001A 


; 9 


NOP3 


EQU 


$1A 


00F9, 


10 


NOP4 


EQU 


$F9 


001C 


: 11 


BUFFER 


EQU 


Sic 


001E 


: 12 


ADR 


EQU 


$1E 


C082 


: 13 


ROM 


EQU 


$C082 


C083 


: 14 


RAM 


EQU 


$C083 


0050 


: 15 


LINUM 


EQU 


$50 


E752 


: 16 


GETADR 


EQU 


$E752 


E6F5 


: 17 


GETBYTC 


EQU 


5E6F5 


E982 


: 18 


FMULTT 


EQU 


9E982 


E2F2 


: 19 


CIVAYF 


EQU 


$E2F2 


EB63 


: 20 


MOVEAF 


EQU 


SEB63 


EB53 


: 21 


MOVE FA 


EQU 


5EB53 



V 
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effectue le filtrage des caracteres 
de code ASCII non compris entre 
$20 et $60 pour eviter tout 
probieme en cas de lecture d'une 
zone de la memoire non 
initialisee. 

Si E$ est initialisee par E$ - 
"A...A" (32 A), puis si B$ = 
"<50 blancs>", le fait d'ecrire E$ 
= B$ attribue a E$ l'adresse de la 
chaine B$ : ainsi, le resultat de la 
recherche se trouve alors dans B$ 
et E$ a une longueur 50 
(E$-"A...A % 32 A et 18 
blancs). Pour eviter cela, il suffit 
de rem placer E$ - B$ par E$ = 
B$ * "". 

Remarquons, pour conclure, que 
ce programme permet non 
seulement de gagner de la place 
memoire, mais 6galenient de 
transmettre des tables entre 
plusieurs programmes puisque la 
carte langagc n'est pas touchee 
par RUN ou LOAD. Cette seule 
raison peut justifler son emploi en 
zone de sauvegarde de tables. 



NB : J'ai du utiliser la routine 
ABS apres les routines FDIVT 
(SEA69) et FMULTT ($E982) 
car dans certains cas 4096 / 32 = 

- 128 r 



Carte longage 16 Ke 












Bonk 2 


D00O 
DITT 


BLOC 1 


BLOC 4 




BLOC 2 




F00O 
FFPF 


BLOC 3 



N.D.L.R. 

• Nous avons fait des essais de 
vitessc pour la lecture et lecriture 
de 450 chaines de caracteres : 

- Avec le programme LANG1 , il 
faut 42 secondes; 

- Avec le Disque virtuel 16K 
KWLC (Pom's 12) et un 
fichier k acces direct, 111 



secondes sont necessaires ; 

- Et enfin, pour Tableau dc 
chaines Applesoft : il est 
preferable d'utiliser FRE(64) 
aprfes le test (Pom's 2) : cela 
prend 39 secondes. 

• C'est uue methode originale 
pour utiliser la carte langage en 
Applesoft pour y stocker des 
chaines de longueur fixe. A titre 
de comparaison, on connaissait 
deji : 

- le DOS sur la carte langage, cc 
qui remonte la HIMEM et 
laisse plus de place pour les 
programmes. 

- le Disque virtuel 16 Ko (en 
fait, il n'y a que 15K 1/4 pour 
les donnees, car il faut aussi 
stocker le catalogue. 

- Haifa 64K : on double les 
instructions de l'Applesofl. 

a 



EA69 


22 


FDIVT 




$EA69 


EBAF 


23 


ABS 


ECU 


SEBAF 


EC23 


24 


INT 


EQU 


$EC23 


D419 


25 


ERROR 


EQU 


$D419 


0069 


26 


LOMEM 


EOU 


S69 


0000 


27 


***** A 


A A A A A A 


A A A A A A 



NEXT OBJECT FILE NAME IS LANG 1 . OB JO 



9400: 






28 




ORG 


$9400 


9400:20 


F5 


E6 


29 


DEB 


JSR 


GETBYTC 


94Q3;8E 


D4 


95 


30 




STX 


LONCENR 


9406:20 


F5 


E6 


31 


ENTREE 


JSR 


GETBYTC 


9409: 8E 


D3 


95 


32 




STX 


FONC 


940C:20 


F5 


E6 


33 




JSR 


GETBYTC 


940F:8E 


D5 


95 


34 




STX 


NOF.NR 


9412:20 


F5 


E6 


35 




JSR 


GETBYTC 


9415;8E 


D6 


95 


36 




STX 


NOENR+1 


9418: 38 






37 




SEC 




9419;AD 


D6 


95 


38 




LDA 


NQENR+1 


941C:E9 


01 




39 




SBC 


#$01 


941E: 8D 


D6 


95 


40 




STA 


NOENR+1 


9421:AD 


D5 


95 


41 




LDA 


NOENR 


9424;E9 


00 




42 




SBC 


#eoo 


9426:8D 


D5 


95 


43 




STA 


NOENR 


9429:20 


9D 


95 


44 




JSR 


CALCNOP1 


942C; 18 






45 


CNOr2 


CLC 




942D:A5 


0B 




46 




LDA 


NOP1 


942F:2A 






47 




ROL 


A 


9430:85 


18 




48 




STA 


NOP2 


9432:A5 


OC 




49 




LDA 


NOP1+1 


9434:2A 






50 




ROL 


A 


9435: 85 


19 




51 




STA 


NOP2H 



9437; 18 






52 


CNOP3 


CLC 




9438:A5 


0B 




53 




LDA 


NOP1 


943A: 65 


18 




54 




ADC 


NOP 2 


043C:85 


1A 




55 




$TA 


NOP3 


943E:A5 


OC 




56 




LDA 


NOP1+1 


9440: 65 


19 




57 




ADC 


NOP2+1 


9442:85 


IB 




58 




STA 


NOP3+1 


9444:A5 


0B 




59 


CNOP4 


LDA 


NOP! 


9446:18 






60 




CLC 




9447:65 


1A 




61 




ADC 


NOP 3 


9449:85 


F9 




62 




STA 


NOP 4 


944B:A5 


OC 




63 




LDA 


NOPl+1 


944D;65 


IB 




64 




ADC 


NOP3+1 


944F:85 


FA 




65 




STA 


NOP4+1 


9451:A9 


DO 




66 




LDA 


#$D0 


9453:85 


IF 




67 




3TA 


ADR+1 


9455:A9 


00 




68 




LDA 


#$00 


9457:85 


IE 




69 




STA 


ADR 


9459:A5 


FA 




70 


TESTO 


LDA 


NOP 4+1 


945B:CD 


D5 


95 


71 




CMP 


NOENR 


94bE:90 


43 




72 




BCC 


ERREUR 


9460:D0 


09 




73 




BNE 


TEST1 


9462:A5 


F9 




74 




LDA 


NOP 4 


94 64: CD 


D6 


95 


75 




CMP 


NOENR+1 


9467:90 


3A 




76 




BCC 


ERREUR 


9469:F0 


38 




77 




BEQ 


ERREUR 


946B:A5 


IB 




78 


TEST1 


LDA 


NOP3+1 


946D:CD 


D5 


95 


79 




CMP 


NOENR 


9470: 90 


74 




80 




BCC 


BLOC4 


9472:D0 


09 




81 




BNE 


TEST2 


9474:A5 


1A 




82 




LDA 


NOP 3 
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9476:CD 


D6 


95 


83 




CMP 


NOENR+1 


9479:90 


6B 




84 




BCC 


BLOC 4 


947B;F0 


69 




85 




BEQ 


BLOC 4 


947D:A5 


19 




86 


TEST2 


T.DA 


NOP2+1 


947F:CD 


D5 


95 


87 




CMF 


NOENR 


9482:90 


4A 




88 




BCC 


BLOC3 


9484:D0 


09 




89 




RNE 


TEST3 


9486:A5 


18 




90 




LUA 


NOP 2 


9488:CD 


D6 


95 


91 




CMP 


NOENR+1 


948B:90 


41 




92 




BCC 


BLOC3 


948D:F0 


3F 




93 




BEQ 


BLOC 3 


948F;A5 


OC 




94 


TEST3 


LDA 


NOP1+1 


9491:CD 


D5 


95 


95 




CMP 


NOENR 


9494:90 


20 




96 




BCC 


BLOC2 


9496:D0 


10 




97 




BNE 


BLOC1 


9498:A5 


OB 




98 




LDA 


NOP1 


949A:CD 


D6 


95 


99 




CMF 


NOENR+1 


949D: 90 


17 




100 




BCC 


BLOC2 


949F:F0 


15 




101 




REQ 


BLOC2 


94AltB0 


05 




102 




BCS 


BLOC1 


94A3:A2 


4D 




103 


ERREUR 


LDX 


#$4D 


94A5:4C 


19 


D4 


104 




.TMP 


ERROR 


94A8:AD 


D5 


95 


105 


BLOC1 


LDA 


NOENR 


94AB:AC 


D6 


95 


106 




LDY 


NOENR+1 


94AE:20 


66 


95 


107 




JSR 


CALCADR 


94Bl:A2 


00 




108 




LDX 


#$00 


94B3: 






109 


* BANKl 


(C08340) 


94B3:18 






110 




CLC 




94B4:90 


41 




111 




BCC 


TESTFON 


94B6:A9 


E0 




112 


BLOC2 


LDA 


#$E0 


94B8:85 


IF 




113 




STA 


ADR+1 


94BA: AD 


D6 


95 


114 




LDA 


NOENK+l 


94BD:38 






115 




SEC 




94BE:E5 


OB 




116 




SBC 


NOP1 


94C0:A8 






117 




TAY 




94Cl:AD 


D5 


95 


118 




LDA 


NOENR 


94C4:E5 


OC 




119 




SBC 


NOP1+1 


94c6:20 


66 


95 


120 




JSR 


CALCADR 


94C9:A2 


00 




121 




LDX 


#$00 


94CB: 






122 


* BANKl 


(C083+0) 


94CB:18 






123 




CLC 




94CC;90 


29 




124 




BCC 


TESTFON 


94CE:A9 


FO 




125 


BLOC3 


LDA 


#$F0 


94D0:85 


IF 




126 




STA 


ADR+1 


94 02: AD 


D6 


95 


127 




LDA 


NOENR+1 


94D5:38 






128 




SEC 




94l)6:E5 


18 




129 




SBC 


NOP 2 


94D8:A8 






130 




TAY 




94D9:AD 


D5 


95 


131 




LDA 


NOENR 


94DC:E5 


19 




132 




SBC 


N0P2+1 


94DE:20 


66 


95 


133 




JSR 


CALCADR 


94E1:A2 


00 




134 




LDX 


#$00 


94E3: 






135 


* ENCORE BANKl 


94E3:18 






136 




CLC 




94E4: 90 


11 




137 




BCC 


TESTFON 


94E6:AD 


D6 


95 


138 


BLOC 4 


LDA 


NOENR+1 


94E9:38 






139 




SEC 




94EA:E5 


1A 




140 




SBC 


NOP 3 


94EC:A8 






141 




TAY 





94ED: AD 


D5 


95 


142 




LDA 


NOENR 


94FQ;E5 


IB 




143 




SBC 


NOP3+1 


94F2:20 


66 


95 


144 




JSR 


CALCADR 


94F5:A2 


08 




145 




LDX 


#$08 


94F7: 






146 


* BANK2 


(C083+00=C08D) 


94F7:AD 


D3 


95 


147 


TESTFON 


LDA 


FONC 


94FA:C9 


02 




148 




CMP 


#$02 


94FC:F0 


29 




149 




BEQ 


ECRIT 


94FE:C9 


01 




150 




CMP 


#$01 


9500:D0 


3D 




151 




BNE 


ERREUK2 


9502:20 


44 


95 


152 


LEC 


JSR 


CALCBUF 


9505:BD 


83 


CO 


153 




T.DA 


RAM, X 


9508:BD 


83 


CO 


154 




LDA 


RAM, X 


950B:AC 


D4 


95 


155 




LDY 


LONGENR 


950E:88 






156 


LI 


DEY 




950F:B1 


IE 




157 




LDA 


(ADR) , Y 


9511: 






158 


* CARACT INDESIRABLES? 


9511:C9 


20 




159 




CMP 


#$20 


9513:90 


0D 




160 




BCC 


BIDON 


9515:C9 


60 




161 




CMP 


#$60 


9517:B0 


09 




162 




BCS 


BIDON 


9519: 91 


1C 




163 


Ell 


STA 


(BUFFER) , Y 


951BI98 






164 




TYA 




951C:D0 


F0 




165 




BNE 


LI 


951 E: AD 


82 


CO 


166 




LDA 


ROM 


9521:60 






167 


FIN 


RTS 




9522:A9 


20 




168 


BIDON 


LDA 


#$20 


9524:18 






169 




CLC 




9525:90 


F2 




170 




BCC 


Ell 


9527:20 


44 


95 


171 


ECRIT 


JSR 


CALCBUF 


952A:BD 


83 


CO 


172 




LDA 


RAM, X 


952D:BD 


83 


CO 


173 




LDA 


RAM, X 


9530:AC 


D4 


95 


174 




LDY 


LONGENR 


9533:88 






175 


El 


DEY 




9534 :B1 


1C 




176 




LDA 


(BUFFER) , Y 


9536:91 


IE 




177 




STA 


(ADR) , Y 


9538:98 






178 




TYA 




9539:D0 


F8 




17 9 




BNE 


El 


9 53B:AD 


82 


CO 


180 




LDA 


ROM 


9S3E: 60 






181 




RTS 




353F:A2 


35 




182 


ERREUR2 


LDX 


#$35 


9541 :20 


19 


D4 


183 




JSR 


ERROR 


9544 : 






184 


****** A 


A A A* ******* 


9544:A0 


00 




185 


CALCBUF 


LDY 


#$oo 


954 6:R1 


69 




186 




LDA 


(LOMEM) , Y 


9b48:C9 


45 




187 




CMP 


#$45 


954A:D0 


4C 




188 




BNE 


ERREURl 


954C:C8 






189 




INY 




954D:B1 


69 




190 




LDA 


(LOMEM) , Y 


954F:C9 


60 




191 




CMP 


#$80 


9551 :D0 


45 




192 




BNE 


ERREUR1 


9553:C8 






193 




INY 




9554 :B1 


69 




194 




LDA 


(LOMEM) ,Y 


9556:CD 


D4 


95 


195 




CMP 


LONGENR 


9559: 90 


3D 




196 




BCC 


ERREUR1 


955B:C8 






197 




INY 




955C:B1 


69 




198 




LDA 


(LOMEM) ,Y 


955E:85 


1C 




199 




STA 


BUFFER 


9560:C8 






200 




INY 
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Vos textes en direct de votre ordinateur 
a nos photocomposeuses 

Gain de temps et economie 




Vous 



nil m 




□ 



Nous 



u _ 




Les textes de vos articles, catalogues, 
annuaires ou brochures saisis sur 
votre micro-ordinateur sont envoyes 
direclement sur noire 
photocomposeuse 

Nous vous evitons ainsi. 
le cout et le temps de la saisie 
supplernentaire que 
necessite le traitement 
traditionnel de la photocomposition 
avant I'impression des documents. 

Si vous le desirez nous pouvons 
egalement nous charger 
de Timpression et du brochage. 



PHOTOCOMPOSITION • BUREAUTIQUE - TRANSMISSION DE DONNEES - GESTION DE FICHIERS - MTEBiELS OE TRAITEMENT DE TEXTES 

13 et 15, avenue du Petit-Parc - 94300 VINCENNES 




9561 


Bl 


69 




201 




LDA 


(LOMEM) ,Y 


959D:A9 


10 




231 


CALCNOP1 LDA 


#S10 


9563 


85 


ID 




202 




STA 


BUFFER+1 


959F:A0 


00 




232 




LDY 


#$00 


9565 


60 






203 




RTS 




95A1:20 


F2 


E2 


233 




JSR 


GIVAYF 


9566 


20 


F2 


F,2 


204 


CALCADR 


JSR 


GIVAYF 


95A4 :20 


63 


KB 


234 




JSR 


MOVEAF 


9569 


20 


63 


KB 


205 




JSR 


MOVEAF 


95A7:A9 


00 




235 




LDA 


#$00 


95 6C 


A9 


00 




206 




LDA 


#500 


95A9:AC 


D4 


95 


236 




LDY 


LONGENR 


95 6E 


AC 


D4 


95 


207 




LDY 


LONGENR 


95AC:20 


F2 


E2 


237 




JSR 


GIVAYF 


9571 


20 


F2 


E2 


208 




JSK 


GIVAYF 


95AF:20 


69 


EA 


238 




JSR 


FDIVT 


9574 


20 


82 


E9 


209 




JSR 


FMOLTT 


95B2:20 


23 


EC 


23 9 




JSR 


INT 


9577 


20 


23 


EC 


210 




JSR 


INT 


95B5:20 


AF 


EB 


240 




JSR 


ABS 


957A 


20 


AF 


EB 


211 




JSR 


ABS 


95B8:A5 


50 




241 




LDA 


LINUM 


957D 


A5 


50 




212 




LDA 


LINOM 


95BA:48 






242 




PHA 




957F 


48 






213 




PHA 




95BB:A5 


51 




243 




LDA 


LINUM+1 


9580 


A5 


51 




214 




LDA 


LINUM+1 


95BD:4 8 






244 




PHA 




9582 


48 






215 




PHA 




95BE:20 


52 


E7 


245 




JSR 


GETADR 


9583 


20 


52 


E7 


216 




JSR 


GET ADR 


95C1:A5 


50 




246 




LDA 


LINUM 


9586 


AS 


50 




217 




LDA 


L1NUM 


95C3: 85 


OB 




247 




STA 


NOP1 


9588 


85 


IE 




218 




STA 


ADR 


95C5:A5 


51 




248 




LDA 


LINUM+1 


958A:A5 


51 




219 




LDA 


LINUM+1 


95C7:85 


OC 




249 




STA 


NOP1+1 


958C 


18 






220 




CLC 




95CS; 68 






2^0 




PLA 




958D 


65 


IF 




221 




ADC 


ADR+1 


95CA:85 


51 




251 




STA 


LINUM+1 


958F 


85 


IP 




222 




STA 


ADR+1 


95CC:68 






252 




PLA 




9591 


68 






223 




PLA 




95CD:85 


50 




253 




STA 


LINUM 


9592 


85 


51 




224 




STA 


LINUM+1 


95CF: 60 






254 




RTS 




9594 


68 






225 




PLA 




95D0:4C 


19 


D4 


255 




JMP 


ERROR 


9595 


85 


50 




226 




STA 


LINUM 


95D3; 






256 


**** ZONES A 


RESERVER 


9597 


60 






227 




RTS 




95D3: 






257 


FONC 


EQU 


* 


9598 


A2 


B0 




229 


ERREUR1 


LDX 


t$B0 


95D4: 






258 


LONGENR 


EOU 


*+l 


95 9A 


4C 


19 


D4 


229 




JMP 


ERROR 


95D5: 






259 


NOENR 


EQU 


* + 2 


959D: 






230 


******* 






*** SUCCESSFUL ASSEMBLY: NO ERRORS 
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DOS 33 ou ProDOS 

a la carte ou comment conserver 



"Tous avons deja vu 
/^L Acomment faire coexister 
/ ^/ sur une merne disquelte 
■ ™ des fichiers DOS 3.3 et 
des fichiers ProDOS. Ceci n'etait 
utile que pour la circulation 
simultanee des deux types de 
fichiers, sans que Ton puissc 
faire dechanges entre les deux 
systemes. Aujourd'hui, nous 
rendons cela possible mais a une 
condition : posseder une carte 80 
colonnes etendue. (En fait, il est 
possible de se debrouiller avec 
ses sculs 64Ko, mais au prix 
ri'une multiplication des acces 
disques et de la neutralisation 
dune bonne partie de memoire : 
21Ko pour les deux DOS). 



Utilitaires DOS... 
...sous ProDOS 

Vous pourrez alors passer quasi 
instantanement d'un DOS a 
l'autre tout en gardant en 
memoire le programme Basic. 
Vous pourrez egalement le faire 
en cours d'execution d'un 
programme (si, si !) et, enfin, 
vous garderez le benefice des 
eventuels utilitaires que le DOS 
3.3 avait mis au chaud sous ses 
buffers. 

Exemple d'utilisation : vous 
pourrez dorenavant convertir de 
maniere non aveugle. Vous 
charges un programme DOS, 
vous le listez, vous faites les 
eventuelles modifications 
necessities par l'adaptation a 
ProDOS et vous le sauvegardez 
sous ProDOS. Ou encore, vous 
chargez un programme ProDOS, 
vous passes sous DOS pour 
beneficier des services de 
RENUMBER, HOLD et MERGE 
de ^Applesoft Toolkit et vous 
revenez sauvegarder le resultat 
sous ProDOS. 



L'art et la maniere 

II s'agit d'utiliser la memoire 
auxiliaire 64 Ko pour stocker les 
images des deux systemes 
d'exploitation. Pour realiser la 
permutation, on commencera par 
sauvegarder l'ctat de I'OS en 

fonction, et on appellera son 
collegue. Le tout a l'aide de la 
routine AUXMOVE ($C311). 

Quelques peliles precautions : 

• brancher et debrancher les 
vecteurs d'interception des 
entries sorties, I/O Hooks, des 
OS (CSSWON et CSSWOFF 
de DOS 3.3) ; 

• retablir le mode TRACE 
correct : ProDOS laisse 
toujours Applesoft en mode 
TRACE el recupie en page 
globale BI ($BE41) la vraie 
valeur du flag TRACE; 

• de la meme maniere, etablir le 
lien cntrc HIMEM DOS 3.3 ct 
HIMEM ProDOS : si pour 
DOS, la region situee 
au-dessus de HIMEM est bien 
definiiiveineni protegee (& 
moins de modifier 
MAXFILES, ce qui n'est pas 
souhaitable), il n'en est pas de 
meme pour ProDOS qui 
maintient un tampon de 1 Ko 
au dessus de HIMEM a des 
fins de raiuasse-miellcs, et 
surtout qui descend tout ce 
monde de 1 Ko chaque fois 
qu'il ouvre un fichier. 

Pour r6soudre ce dernier 
probl^me, il faut recourir a 
l'allocation de buffer autorisee 
par ProDOS. La routine 
correspondante prend en entree le 
nombre de pages a allouer et 
retourne Tadresse de la premiere 
page attribuee au tampon. Ce 
nombre est en fait la valeur du 
pointeur sur le sommet des 
tampons dc fichiers (TOPBUFF). 



Seul l'espace situe au dessus de 
ce sommet est effectivement 
protege de modifications 
intcmpestives (voir figure). 
Enfin, dernier probleme, on a 
essaye d'utiliser au maximum les 
adresses siluees dans les "pages 
globales" ($BE et $BF), seules 
celles-ci sont assurees d'une foite 
stabilite entre les differentes 
versions ProDOS, mais il a fallu 
recourir a 3 adresses extcricurcs. 
Pour 1'accrochage ($9A8D pour 
les seuls I/O Hooks ou $9A7E 
pour y ajouter la restauration du 
flag TRACE) et pour le 
decrochage de ProDOS, les 
adresses ne changent pas dans les 

versions 1.0, 1.0.1 et 1.0.2. Par 
contre, la routine fermant tous les 
fichiers s'est lcgcrcmcnt dcplacce 
de $B548 (1.0) & SB54C (1.0.1 
et 1.0.2). On sera done prudent 
pour l'utilisation du programme 
pruposc avec d'autrcs versions 
futures de ProDOS. 

La theorie : 
DOUBLEDOS 

II se compose d'une partie 
d'initialisation realisant tous les 
transferts necessaires en memoire 
auxiliaire, ainsi que la mise hors 
service du pseudo-disque /RAM 
et d'une partie "residente" 
permettant de commuter le 
systeme d'exploitation par un 
seul et meme CALL 768. 
Remarque : si Ton est perdu (3.3 
ou Pro ?), un moyen extreme- 
ment simple : faites RETURN en 
debut de ligne ; ProDOS passe 
simplement a la ligne suivante, 
tandis que DOS 3.3 ajoute un 
retour chariot faisant ainsi sauter 
une ligne. Simple, mais efficace. 

Le programme demarre en 
supposant que le DOS 3.3 a ete 
charge en memoire ; le corps de 
3.3 de $4600 i $6FFF et une 
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/ 'acquis 3.3 sous Pro... 



Francois Sermier 

3 



image de sa page 3 juste devant, 
de $45D0 & $45FF. 

• $2B1-$2EE : c'cst la routine 
(empruntee * Beneath Apple 
ProDOS) mettant hors service le 
volume /RAM, situe convention- 
nellement en slot 3, drive 2. On 
pourrait envisager de simplement 
proteger les zones concemees 
dans le VBM de /RAM a 1'aide 
d'un appel a MLI, mais la 
correspondance numero de bloc, 
page memoire auxiliaire est loin 
d'etre evidente : pour les blocs dc 
$D & $5C, il faut retirer 8 au 
numero de bloc, diviser le resultat 
par 17 ct mcttrc les blocs dans la 
memoire a partir de $2000 vers 



mdmoire auxiliaire, de sa page 3 
immediatement en dessous et du 
bloc DOS et sa page 3 encore en 
dessous. 

• $300-$304 ; aiguillage du com- 
mutateur. On teste simplement le 
MSB du vecteur d'interruption 
masquable IRQ en S3FE-S3FF. 
Celui-ci vaut $FF65 (entree dans 
lc moniteur) pour DOS 3.3 et 
SB FEB adresse du Handler 
d'interruption ProDOS, qu'il est 
deconseille de modifier. 

• les deux morceaux (Pro -> 3.3 
et reciproquement) utilisent tous 
les deux les memes sous- 
programmes DOMOVES et 



auxiliaire. On utilise une table des 
mouvements & effectuer en 
$374-$39E ; les 6 octets suivants 
$39E ne sont utilises qu'une fois 
lors de l'initialisation et 
deviennent done disponibles 
immediatement 

• $30E-$31F : avant d'appeler 
DOS, on ferme tous les fichicrs 
pendants (ii l'exception d'un 
eventuel fichier EXEC, il faut 
done eviter de commuter dans irn 
EXEC si Ton tient & ce qui se 
trouve apr&s HIMEM) (voir 
remarque ci-dessus pour 
l'adresse de la routine 
CLOSEALL). Puis on s'enquiert 
de TOPBUFF en demandant 



scooo 

Top of Buffers (1) 
(513 CSS) 

WA0O 



HIMEM 



.4 I' initialisation 



ProDOS 
(B.I.) 



Espacc 
Tamasse-mieUts 



Apres allocation 
d'un buffer 
utilisateur 



K 

x 

Top of Buf fen 

a 

a 

HIMFM 



rYoDOS 



"Espacc 
utitisateur" 



Espace 
mmassc-micttcs 



(1) : Top of Buffet j n'cai mu 
fi jour que lors d*unc allocaiioo 
dc Duffer. A I'iaitialuAtion, 
ccitc variable n'c-al pas dcTinic 
(3DC88 = 0) 



Lors de I'utilisation 
de n fichier s 



Top of Buffers 



HIMEM 



ttqDQS 



"Rip ace 
utilisateur" 



n buffers 
fichicrs 



Espacc 
rainassc-iniettes 



SCOOO 



59D00 



S96O0 HIMEM 



Sous DOS 



DOS 3.3 



3 buffers 
fichicrs 



L.C1 (Drl) Ko aituta CHOC 
I IIMCNS ct Top of Duffers DC 
jod! pas protigfs bien que 
jicuds ao-dcuua de I IIMEM. 



L« nomb'e B A fichiera 
ou verts pcut varicr dc A 8 
a tout in>£ant enHntnant 
)c dcploccmcril dc tout cc 
qui est cn-dcuous. 



Allocation de la mimoire vivc 



$BFFF a l'exception de ceux 
dont le resie de la division par 17 
vaut 1 qui vont successivement 

de $12 a $18. Et le reste a 
l'avenant : les blocs $5D-$5F 
vont en $1A-$1F, /RAM utilise 
les deux banes $DQ-$DF. , . 

• $2EF-$2FF: transfert de 
ProDOS ^ la meme adresse en 



DOMOVE pour realiser les 
transferts. Comme sa consceur 
MOVE du moniteur, AUXMOVE 
deplace une zone memoire de 
(A1)-(A2) vers la zone debutant 
en (A4), le sens du mouvement 
est donne par le bit de retenue : 
s'il est mis a 1, le transfert 
s'effectue vers la memoire 



Tallocadon de page... En effet, 
la valeur de TOPBUFF est 
stockee en $BC88 (done hors 
pages globales alors que 
GETBUFR y est) mais il n'est 
mis h jour que lors d'allocation de 
buffers (fichiers ou utilisateurs) et 
pas lors de la liberation. La 
routine GETBUFR retourne la 
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valeur correcte. Si TOPBUFF 
vaut $9A, c'est que Ton a rien 
modifie, on ne touche done a 
rien ; s'il est different, c'est qu'il 
est inferieur ou 6gal & $96, il faui 
done rcmonter HIMEM DOS de 
IK (4 pages) pour tenir compte 
du tampon ramasse micttcs. 

• $332-$344 : avant d'entrcr 
dans ProDOS, on verifie si le 
haut de la memoire n 1 a pas ete 
abaisse, dans ce cas, on alloue un 
buffer de taille suffisante pour 
faire descendre TOPBUFF a la 
hauteur du HIMEM DOS. Du 
coup HIMEM ProDOS est 
automatiqueme.nt phis petit de 
IKo que pour DOS. Remarqucz 
que des que Ton alloue quelque 
chose, on avale automatiquement 
les pages $96 h $9A, qui ne 
contiendront rien. Cest-a-dire, la 
prcrnidrc fois que Ton descend le 
haut de la memoire, on le descend 
d'un minimum de 5 pages, y 
compris pour proteger un 
programme d'une vingtaine 
d'octets. Les autres fois on ne 
descend que du necessaire. 

La pratique 

La suite des operations est la 
suivante ; 

• Booter une disquelte DOS : 

• Faire : 

JCALL-151 passe en moniteur 
*45D0<3D0.3FFM copU page 3 
*4600<9600.BFFFM«yfc Des 

*3D0G retnur an Rnsir. 

]BSAVE DOS, AS45D0, L$ 

2A30 sur une disquelte 3.3 

• CONVERTir DOS sur une 
disquette ProDOS 

• Assembler DOUBLEDOS (si 
I'on n'a qu'un assembleur 
DOS, on peut l'utiliser mais il 
faut dvidemmeru de nouveau 
CONVERTir) 

• II ne rcstc plus qua enchainer 
(eventuellement dans un 



STARTUP) en faisant BLOAD 
DOS puis -DOUBLEDOS.O 
pour sc trouver en situation de 
commuter S tout moment par 
un simple : CALL 768. 

II peut Stre utile de commencer a 
utiliser cette commutation sur une 
disquette mixte ProDOS/DOS 3.3 
et de sauvegarder la partie 
residente du commutateur sur la 
partie DOS 3.3 de la disquette. 
En effet, la page 3 est quelque 
peu utilis£e (euphemisme...) et 
vous risquez de la perdre et done 
de ne plus pouvoir revenir sous 
ProDOS qu'en rebootant ou en 
reintroduisant le code machine a 
la main. Done, dbs le premier 
CALL768, faire : 

SAVE DOUBLEDOS.OBJ,AS 
300,L$9£ par exemple (on 
laissera tomber les trongons 
d'initialisation). 

On se convaincra de l'efficacite 
du systeme en experimentant en 
mode direct et en entrant des 
programmes du genre : 

10 PRINT CHR$(4) ; "CATA 

LOG" 
20 CALL768 

30 PRINT CHR$(4) ; "CATA 

LOG" 
40 CALL768 

ou encore pour utiliser APA, voir 
le programme LOAD A PA. 
Apparemment, les diverses 
commandes APA, fonctionncnt 
aussi sous ProDOS sauf AUTO 
(grande perte... et pcuL-etre 
MERGE). Quelques remarques 
enfm, surLOADAPA. 

1.1 30 est indispensable car 
RBOOT vient en pages 2 ct 3. 
1.140 on se saisit du vecteur de 
l'Ampersand dans la page 3 
DOS, et Ion POKE dans la page 
3 ProDOS. (II est d'ailleurs 
preferable de les POKEr dans 



XTRNADDR ($BE50-51), 
Handler de commandes externes 
de ProDOS. Ceci lui permettrait 
ainsi de reconnaitre egalement ces 
commandes. Evidemment, ici, ce 
n'est guere utile. Enfm, on notera 
qu'au premier passage de DOS 
vers ProDOS, apr&s avoir charge 
APA, vous pouvez perdre les 
valeurs de quelques variables 
alphanumeriques, car HIMEM est 
arrondi a la page inferieure pour 
les besoins de ProDOS. Mais une 
fois cet ajustement effectue, vous 
pouvez passer sans probleme 
d'un syst&me a 1'autre en 
conservant toutes vos variables, y 
compris en cours d'execution. 

Jonglez bien, et si vous etes 
perdus, n'oubliez pas : un simple 
RETURN suffit. 

NDLR : APA, logiciel commer- 
cial nefgure pas sur la disquette 
d'accompagncmcnt. 



Recapitulation 

DOUBLEDOS.OBJ 



0300- 


AE 


FF 


03 


E8 


FO 


24 


20 


00 


0308- 


9A 


AD 


41 


BE 


85 


F2 


20 


4C 


0310- 


B5 


A9 


00 


20 


F5 


BE 


C9 


9A 


031 R- 


F(l 


07 


18 


A5 


74 


69 


04 


85 


0320- 


74 


A2 


17 


20 


49 


03 


20 


51 


0328- 


A8 


60 


20 


F.n 


QR 


A? 


29 


20 


0330- 


49 


03 


A5 


74 


C9 


96 


FO 


OD 


0338- 


A9 


00 


RS 


73 


70 


F5 


BE 


38 


0340- 


E5 


74 


20 


F5 


BE 


20 


7E 


9A 


0348- 


60 


38 


20 


5A 


03 


■*R 


?n 


5A 


03SU- 


03 


18 


20 


5A 


03 


18 


20 


5A 


0358- 


03 


GO 


08 


AO 


07 


BD 


74 


03 


0360- 


99 


3C 


00 


CA 


CO 


06 


UO 


02 


0368- 


88 


88 


83 


10 


FO 


28 


8A 


20 


0370- 


11 


C3 


AA 


60 


UO 


6A 


FF 


6A 


0378- 


DO 


03 


00 


6B 


FF 


94 


00 


96 


0380- 


DO 


03 


FF 


03 


DO 


9b 


00 


96 


0338- 


FF 


BF 


00 


96 


DO 


95 


FF 


95 


0390- 


DO 


03 


DO 


03 


FF 


03 


DO 


6A 


0396- 


00 


4€ 


FF 


BF 


00 


6B 


DO 




sur disquette DOG 


3.3 







Programme LOAD APA 

100 CALL 768: RFM — Je passe en 3.3 
105 REM 

110 PRINT CHR$ (4) ; "BLOAD RBOOT' 

120 CALL 520 :AD = USR (0) , "APA" : CALL AD 



130 PRINT CHRS (4) ; "BLOAD DOUBLEDOS;OBJ" 
140 LAMPV = PEEK (1014) :HAMPV = PEEK (1015) 
150 CALL 768: REM - — Je reviens en ProDOS 
155 REM 

160 POKE 1Q14.LAMPV: POKE 101 5.HAMPV 
170 PRINT : PRINT "Me revoila en ProDOS" 
180 NEW 
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Programme DOUBLEDOS 

(Assembleur Procode) 

SOURCE FILE #01 ^/POMS/DOUBLEDOS 



0000: 






1 




LST 


NOA 


0000: 






2 








0000: 






3 


; (change 


ProDO 


S < — > DOS 


0000: 






4 


»•*»*••*■*»«»*■ 




NEXT 


OBJECT 


FILE 


NAME IS /POMS/DOUBLEDOS.O 


02B1: 




02B1 


5 




ORG 


S2B1 


02B1: 




0073 


6 


HIMEM 


EQU 


573 


02B1: 




003C 


7 


Al 


EQU 


S3C 


02B1: 




nmp. 


fl 


A2 


EQU 


S3E 


02B1: 




0042 


9 


A4 


EQU 


542 


02B1: 




00F2 


10 


TRACE 


EQU 


SF2 


02R1: 




AS 51 


11 


HOOkDOS 


EOU 


SA851 


02B1; 




9EE0 


12 


UNHOOKDOS 


EQU 


S9EE0 


02B1: 




9A7E 


13 


HKPROTRCE 


EQU 


Sb)A /E 


02B1: 




9A8D 


14 


HOOKPRO 


EQU 


S9A8D 


02B1: 




9A00 


15 


UNHOOKPRO 


EQU 


S9AO0 


02B1: 




B54C 


16 


CLOSEALL 


EQU 


9B54C 
(V.1.0:SB54 


02B1: 




BFOC 


17 


PRTNTV.RR 


F.QU 


SRFOC 


02B1: 




BE41 


18 


DTRACE 


EQU 


SBE41 


02B1: 




BEF5 


19 


GETBUFR 


EQU 


SBEF5 


02B1: 




BF16 


20 


DEVADR31 


EQU 


SBF16 


02B1: 




BF26 


21 


DEVADR32 


EQU 


SBF26 


02B1: 




BF31 


22 


DEVCNT 


EQU 


5BF31 


02B1: 




BF32 


23 


DEVLST 


EQU 


SBF32 


02B1: 




BF98 


24 


MACHID 


EQU 


SBFQR 


02B1; 




can 


25 


AUXMOVE 


EQU 


5C311 


02B1: 






26 








02B1:AD 


98 


BF 


27 




LDA 


MACHID 


02B4: 29 


30 




28 




AND 


#$30 


02B6:C9 


30 




29 




CMP 


#5J0 


02B8: FO 


05 


02BF 


30 




BEQ 


OK128 


Q2BA: A9 


03 




31 


NO RAH 


LDA 


13 










' Device 


not connecLe 


02BC:4C 


oc 


BE 


32 




JMP 


PRINTERR 


o?rf: An 


l fi 


BF 


33 


OKI 7B 


T.DA 


DEVADR31 


02C2;CD 


26 


BF 


34 




CMP 


DEVADR32 


O2C5:F0 


28 


02EF 


35 




BEQ 


TRANSF 


07C7:8T1 


76 


RF 


36 




STA 


DEVADR32 


02CA; AD 


17 


BF 


37 




LDA 


DEVADR31 i 1 


02CD: 8D 


27 


BF 


38 




STA 


DEVADR32+1 


O2D0:AE 


31 


BF 


39 




LDX 


DEVCNT 


02D3: BD 


32 


BF 


40 


DEVLP 


LDA 


DEVLST, X 


02D6: 29 


70 




41 




AND 


•570 


02D8:C9 


30 




42 




CMP 


#S30 


02DA: F0 


05 


02E1 


43 




BEQ 


GOTSLT 


02DC: CA 






44 




DEX 




02DD: 10 


F4 


02D3 


45 




BPL 


DEVLP 


02DF: 30 


D9 


o?ba 


46 




BMT 


NO RAM 


02E1: BD 


33 


BF 


47 


G0T5LT 


LiDA 


DEVL5TU,X 


02E4: 9D 


32 


BF 


48 




STA 


DEVLST, X 


02E7: FC 


03 


02EC 


49 




BEO 


REMOVE 


O2C0: E8 






50 




I NX 




O2EA:D0 


?b 


02E1 


51 




BNE 


GOTSLT 


02EC:CE 


31 


BF 


52 


REMOVE 


DEC 


DEVCNT 


02EF: 






53 


; initial 


transform /RAM 


OZt'f: A2 


2f 




54 


TRANS F 


LDX 


#47 


02F1:38 






55 




SEC 




02F2: 20 


5A 


03 


56 




JSR 


DOMOVE 


02F5: A2 


17 




57 




LDX 


#23 


Q2F7: 38 






58 




SEC 




n?F8: 20 


5A 


03 


59 




JSR 


DOMOVE 


02FB: 38 






60 




SEC 




O2FC:20 


5A 


03 


61 




JSR 


DOMOVE 


02FF: 60 






62 




RTS 




0300: 






63 








0300: 






64 


; parti e 


resiflente 


0300: AE 


FF 


03 


65 


ENTREE 


LDX 


S3FF 


0303IE8 






66 




I NX 





8) 



0304:F0 


24 


032A 


67 




BEQ 


CALLPRO 


0306; 






68 


* 






0306:20 


00 


9A 


69 


CALLDOS 


JSR 


UNHOOK PRO 


0309:AD 


41 


BE 


70 




LDA 


DTRACE 


030C:85 


F2 




"71 




STA 


TRACE 


UJU!l:2U 


4C 


U5 


72 




JSR 


CLOSEALL 


0311:A9 


00 




73 




LDA 


#0 


0313:20 


F5 


BE 


74 




JSR 


GETBUFR 


03:6:C9 


9A 




75 




CMP 


*?9A 


0318:F0 


07 


0321 


76 




BEQ 


CLDOS1 


031 A: 18 






77 




CLC 




031D:A5 


74 




78 




LDA 


H2MEM+1 


031D;69 


04 




/y 




ADC 


• 4 


031F:85 


74 




BO 




STA 


HIMEM+1 


0321:A2 


17 




81 


CLDOS1 


LDX 


#23 


0323:20 


49 


03 


82 




JSR 


DOMOVE S 


0326:20 


51 


A8 


83 




JSR 


HOOKDOS 


0329:60 






Rd 




RTS 




032A; 






85 


; 






032A:20 


E0 


9E 


66 


CALLPRO 


JSR 


UNHOOKDOS 


032D:A2 


29 




87 




LDX 


441 


032F:20 


49 


3 


88 




JSR 


DOMOVE S 


0332:A5 


74 




89 




LDA 


HIMEM*- 1 


0334:C9 


96 




90 




CMP 


#596 


0336:F0 


0D 


0345 


91 




BEQ 


CLPROl 


0338:A9 


00 




92 




LDA 


10 


033A:85 


73 




93 




STA 


HIMEM 


033C:20 


F5 


BE 


94 




JSR 


GETBUFR 


033F:38 






95 




SEC 




034O:£b 


74 




96 




SBC 


H1MEM+1 


0342:20 


F5 


BE 


97 




JSR 


GETBUFR 


0345i20 


7E 


9-A 


98 


CLPROl 


JSR 


HKPROTRCE 


0348: 60 






99 




RTS 




0349; 






100 


I 






0349: 38 






101 


DOMOVE S 


SEC 




034A;20 


GA 


03 


102 




JSR 


DOMOVE 


034D:38 






103 




SEC 




034E:20 


5A 


03 


104 




JSR 


DOMOVE 


0351:18 






105 




CLC 






5A 


03 


106 




JSK 


UUMUVE 


0355:18 






107 




CLC 




0356:20 


SA 


03 


108 




JSR 


DOMOVE 


0359:60 






109 




RTS 




035A: 






110 


; appel 


AUXMOVE 


transf ert 

n* {X+1J/6 


035A:08 






111 


DOMOVE 


PHP 




C35B:A0 


07 




112 




LDY 


#7 


035D:BD 


74 


03 


113 


DMV1 


LDA 


CMDTBL. X 


0360:99 


3C 


00 


114 




STA 


A1,Y 


03bJ:CA 






115 




DfcX 




Q364:C0 


06 




116 




CPY 


te 


0366:DO 


02 


036A 


117 




3NE 


DMV 2 


UJ6B:88 






118 




UtY 




0369:88 






119 




DEY 




036A:88 






120 


DMV? 


DEY 




036B:10 


F0 


035D 


121 




BPL 


DMV1 


036D:28 






122 




PLP 




03fiR:8A 






1 23 




TXA 




C3GF;20 


11 


C3 


124 




JSR 


AUXMOVE 


0372:AA 






125 




TAX 




0373:60 






126 




RTS 




0374: 






127 


; argument a de 


Move OS ->y RAM 


0374:DO 


6A 




128 


CMDTBL 


DW S6AD0 , S6AFF, SO3D0 


037A:00 


6B 




129 




DW S6B00,S94FF,S9600 


0380:D0 


03 




130 




DW $O3D0,SO3FF,$95d0 


0386: 






131 


> 






0386:00 


96 




132 




DW S9600,SBFFF,S9600 


038C: 






133 








038C:D0 


95 




134 




DW S95D0,395FF,5O3D0 


0392:D0 


03 




135 




DW S03D0,S03FF,S6AD0 


0398:00 


96 




136 




DW S9600 , SBFFF, S6B00 


039E: 




039E 


137 


END 


EQU 


* 


039E:D0 


45 




138 




DW 




S45D0,S6FFF , S6AD0 











Pom's n° 20 



19 



Copie d'ecran graphique 



^^"V n peut se demander la 
M ■ raison d'etre d'un tel 
m m programme puisque 
\ m J la ROM de la carte 
d'interface de Silenlype com- 
prend dejil une routine de copie 
d'€cran graphique activee par 
CTRL-Q. Malheureusement, 
l'image ainsi obtenue m'a 
toujours paru trop petite et c'est 
ce qui m'a amene a ecrire ce 
programme qui fournit une image 
quatre fois plus grande que celle 
obtenue par CTRL-Q, soit 
environ un format A4. Bien 
entendu, il a fallu renverser 
l'image qui ne sera plus imprimee 
ligne par ligne mais colonne par 
colonne. 

Le programme Basic n'appelle 
pas de commentaires particuliers. 
II se contente de proposer un 
menu permettant, a l'utilisateur, 
de choisir les parametres de 
rimprimante et la page graphique 
1 ou 2. 

Noter au passage & paitir de 2000 
la routine de lecture du catalogue 
en Basic (seul l'appel de RWTS 
est en langage machine et 
n'occupe que 6 octets). Les noms 
de fichiers binaires sont trans- 
feres dans le tableau F$. Le 
programme ne verifie pas la 
longueur de ces fichiers, il est 
done de la responsabilite de 
Tutilisateur de s'assurer qu'il 
s'agir bien dune page graphique. 
Le contenu des pages graphiques 
peut etre verifie en appuyant sur 
les touches 1 ou 2. 



La routine en langage machine 
RECOROBJ est cachee a la fin 
du programme Basic. Elle est 
entierement relogeable ce qui 
permet de modifier ce dernier a sa 
guise. Son role est de dedoubler 

chaque colonne de la page 
graphique avant d r en imprimer 
chaque octet deux fois de suite. 
Ainsi, un point k I'ecran 
correspondra a quatre points sur 
le papier. L'impression peut etre 
interrompue en appuyant sur la 
touche ESC, tandis que le mode 
d'impression (uni ou bidirec- 
tionnel) peut etre modifie en 
cours d'impression par les 
touches U ou B. 

Enfin, si vous n'avez pas la 
disquette d'accompagnement, 
pour recopier le programme* il 
faut dans I'ordre suivant : 

• recopier le programme Basic 
sans en changer un octet ; 

• verifier que le pointeur de fin 
de programme (SAF - $B0) 
indique une valeur inferieure a 
$1573. Modifier ce pointeur en 
lemettanta$16BC; 

• recopier le programme en 
langage machine a partir de 
$1573 et sauver le programme 
Basic ainsi obtenu. 

a 

Programme 

RECOP.OBJ 

1573- A9 01 20 95 FE 



1578- 


20 


8E 


FD 


A9 


20 


20 


AB 


CC 


1580- 


A9 


11 


85 


E0 


A9 


01 


85 


El 


1588 


AD 


13 


CF 


85 


E6 


A9 


00 


85 


1590- 


2A 


85 


E2 


85 


CE 


85 


CF 


A9 


1598- 


IE 


85 


2B 


A5 


E2 


A6 


EO 


A4 


15A0- 


El 


70 


1 1 


P4 


A7 


07 


Rl 


26 


15A8- 


4A 


08 


66 


CE 


28 


66 


CE 


CA 


15BO- 


10 


F6 


4A 


48 


08 


66 


CE 


A4 


15B8- 


E2 


AS 


CE 


4A 


4D 


14 


CF 


ro 


15C0- 


04 


A2 


FF 


86 


CF 


91 


2A 


A9 


15C8- 


00 


85 


CE 


A9 


IF 


85 


2B 


28 


10D0- 


60 


CE 


A2 


02 


06 


4A 


08 


GO 


15D8- 


CE 


28 


66 


CE 


CA 


10 


F6 


A5 


15E0- 


CE 


4A 


4D 


14 


CF 


F0 


04 


A2 


15E8- 


FF 


86 


CF 


91 


2A 


A9 


00 


85 


15F0- 


CE 


E6 


E2 


A5 


E2 


C9 


CO 


90 


15F8- 


9E 


24 


CF 


30 


OC 


A9 


08 


20 


1600- 


AB 


CC 


18 


90 


38 


A9 


00 


10 


1608- 


88 


A2 


02 


86 


CF 


AO 


00 


8C 


1610- 


01 


CF 


Bl 


2A 


8D 


2B 


CF 


20 


1618- 


0B 


CB 


20 


A4 


CB 


20 


OB 


CB 


1620- 


20 


A4 


CB 


C8 


CO 


CO 


90 


EA 


1628- 


A9 


04 


20 


AB 


CC 


A9 


IE 


85 


1630- 


2B 


2C 


OF 


CF 


10 


36 


20 


02 


1638- 


CD 


C6 


CF 


DO 


DO 


AD 


00 


CO 


1640- 


10 


IB 


C9 


9B 


F0 


62 


C9 


D5 


1648- 


DO 


07 


A9 


FF 


8D 


OF 


CF 


DO 


1650- 


09 


C3 


C2 


DO 


05 


A9 


00 


SD 


1658- 


OF 


CF 


2C 


10 


CO 


AS 


EO 


"?fl 


1660- 


E9 


07 


85 


E0 


B0 


9F 


C6 


El 


1668- 


10 


9B 


30 


3F 


AO 


FF 


8C 


01 


1670- 


CF 


A9 


00 


8D 


2B 


CF 


20 


OB 


1.678- 


CB 


20 


A4 


CB 


20 


OB 


CB 


20 


1680- 


A4 


CB 


20 


0B 


CB 


AO 


CO 


88 


1688- 


08 


Bl 


2A 


8D 


2B 


CF 


20 


OB 


1690- 


CB 


20 


A4 


CB 


20 


OB 


CB 


20 


ibys- 


A4 


CB 


28 


DO 


£A 


A9 


04 


20 


16A0 


AB 


CC 


20 


02 


CD 


18 


90 


95 


16A8- 


2C 


10 


CO 


A9 


IE 


20 


AB 


CC 


16B0- 


4C 


93 


FE 


20 


E3 


03 


4C 


D9 


16B8- 


03 


00 


00 


00 


00 









Programme RECOP.SOURCE 

(Assembfeur Toolkit) 



1 ORG $1573 

2 • 

3 ............................................................ 

4 *•**•*•** RECOPIP D'ECRAN GRAPHIQUE SUB SILENTYPE *«****«*• 

5 **••»**■• 

fi *******-* Aulam ; BECHEB GERARD 10/06/84 ********* 
7 ......... ......... 

g ** ******** ******* ******* ******* * i..>.t...>>4»t> a.*......... 

9 • 

10 ...*.....«.............«.......«............................ 

11 HBASL EOD $26 rAdresse d'un octet de la parje HGR 

12 IMACL EQU ?2A ;Adres*e de l'image agrandla 



13 


IHACH 


EQU 


52B 


;d'une colonne 


14 


TEMP 


EOD 


5CE 


>~Recoi~ l'image agrandie d'un octet 


13 


TEMOIN 


EQU 


$CF 


;Zero si une ligne est vide. 


lfi 


HC 


sou 


SEO 


;Niiniero de la colonne courante 


17 


NL 


EQU 


5E2 


;Numero de la ligne courante 


11 


HPAGE 


EQU 


5E6 


;Pa<je HGB courante 


19 


KBD 


EOU 


scooo 


:Adres9e du clavier 


20 


XBDSTR 


BOO 


SC010 


• '• • - - - du clavier 


21 


I MP RIMS 


EQU 


scaoa 


; Im-prirnc une barrc vcrticalo. 


22 


EA.RRE 


EQU 


3CF2B 


.Octet lrapiime pat I MP RIME 


23 


TEMPO 


EQU 


5CBA4 


; ~e mpotlsation 


24 


SENS 


EQU 


SCFOl 


.■Determine le sens d'iiopresaion 


25 


07 R 


EQU 


$CFOF 


;Oni ou bldirectlonnel? 


26 


PAGE 


EQU 


SCF13 


;Page Haute resolution ($20 ou $40) 


27 


INVERSE 


EOD 


SCF14 


.'Mode normal ou Inverse. 


28 


DEROUI.F. 


F.QU 


SCCAR 


.• n&rnn 1 omnnt du p«j>1 »»r 


29 


RE TOUR 


EQU 


SCD-02 


;Ratour de la tete en oolonne Q. 



20 



Pom's n' 20 



sur Silentype 



Gerard Becher 



3 


HPOCN 


BQD 


SP411 


/Caleule l'adsresse d'un paint HCR 












31 


CROOT 


EQU 


5FD8E 


;Eiivu1b uii RcLuu: Chaiiul 












32 


SBTV1D 


£WU 


5t'K93 














33 
34 


aa«***a«*aaaaaa*a iitKiiixiiiatiiiiinii ■iiiiaiairiiiaiim 
a 












35 




LDA 


#1 




109 


■aaaaia 


taaaaaaaaaaatiata taaaataaaaaaaaaaaataaaamaaaiaaaiia 


36 




JSR 


5ETVID+2 


;PR41 


110 


• 








37 




.TSH 


r.nouT 


; Envoi* un Ratnnr Char! <ir 


ill 




BIT 


TEMOIN 


/La ligne a impriraor cat-ollc vlda? 


31 




LDA 


*S20 




112 




DMI 


IMFLIN 


;WON -> Vo 1' imp rimer , 


39 




JSR 


DBROULE 


jDetaule 1* papier 


113 




LDA 


H 


,'OUI 


40 




LDA 


#>27 3 


i Initialise le nuniero tie colonne 


114 




JSR 


DE.RO OLE 


;Se content* de derouler le papier 


41 




STA 


NC 


; (commence par la derniere colonne) 


115 




CLC 




42 




LDA 


♦ <27 3 




116 




BCC 


CLAVIER 




43 




STA 


NC+1 




117 


a 








44 




LDA 


PAGE 


;Fixe le nuraero de page pour HPOSN 


118 










45 




STA 


HPAT.P 




119 


a 








46 




LDA 


#0 




120 


3ACT2 


LDA 


• 




47 




STA 


I MAC L 




121 




BPL 


DOUBLE 


.-Relals pour remonter Jusqu'i DOUBLE 


40 


DOUBLE 


STA 


HZ. 


iiiitlolljae lv iiuraeiu de liujue 


122 


a 








49 




STA 


TEMP 




123 










50 




STA 


TEMOIN 


; (Reste A Q si la colonne est vide) 


124 


a 








51 


SOIVANT 


LDA 


is:- 


; La lere serie de 192 octets: sera 


125 


IMPLIN 


LDX 


42 


- 


52 




STA 


IMAGH 


.-renaee en S1E00. la 2eme en S1FO0 


126 




STX 


TEMOIN 




S3 




I.DA 


NT* 


;Calniile 1'adrease de base d'un octet 


127 


LINDIH3 


LDY 


#0 


;Seleet.ionn« Is sens 


54 




LDX 


NC 


.*do la page graphi-que an fonction do 


128 




STY 


SENS 


,-de gauche a droite 


55 




LDY 


NCil 


.-son nuraero de ligne et de colonne. 


129 


LINDIR1 


LDA 


(IMAGL) , 


f ;Chaque octet de la serie est Imprime 


56 




JSR 


HPOSN 




130 




STA 


BARKE 


;sous Ja forme d'une double barre 


57 




LDX 


42 


.•Decale cnaque octet Bit par bit 


131 




JSR 


I MP RIME. 


; Emprinie une barre verticale 


58 




LDA 


(HBASL) , Y 


;en dedoublant chacun des sept bits 


132 




JSR 


TEMPO 


.•remporlsation 


59 DECAL1 


LSR 


A 


;L' octet est decale a droite et 


133 




JSR 


IMPRIME 


.'Double la barre imprimee. 


60 




PHP 




:chague bit qui tonbe dans la retenue 


134 




JSR 


TEMPO 




61 




HOD 


TRW 


■sora rp'nt&tjrb deux fols dans 


13S 




I NY 




; Octet auivant 


C2 




PLP 




;1' octet de travail temporal ra TEMP 


13C 




CPY 


#192 


,* Dernier octet ? 


63 




RQR 


TEM? 




137 




BCC 


LIWDIR1 


;NON on recommence 


54 




DEX 




;On re pete ce processus trois Cots 


138 




LDA 


14 


;OUI -> Avance le papier (LF) 


65 




BPL 


DECAL1 


;aoit six bits dans TEMP 


139 




JSR 


DEROULE 




£6 




LSR 


A 


;Le bit auivant torabe dans la retenue 


140 




LDA 


4S1E 


;Pointe vers la lere serie d'octets 


67 




PHA 




;et formera le septieme bit de TEMP 


141 




STA 


IMAGH 




68 




PHP 




.•Saavegarde de ce bit crul n' a ete 


142 




BIT 


DIR 


:Bi- ou Dn 1 -direct i onnel ? 


69 




POP 


TRMO 


;rM nrpgi-A qn'une fols dans TEMP 


143 




BPL 


BIDIR 


:BI 


70 




LDY 


NL 




144 




JSR 


SETOUR 


; ONI ~ > revicnt en debut de iicine 


71 




LDA 


TEMP 


■'L' octet resultant eat charge 


145 




DEC 


TEW3IN 


;et erfectue la 2eme passe 


72 




L5K 


A 


;son bit de polds lore nla fi zero 


146 




BNE 


LINDIR2 




73 




BOR 


INVERSE 


;Bventuelleraent il est inverse 


147 


*• 








74 




BE0 


NULI 


,-Un octet nul ne modifi* pas TEMOIN 


148 










75 




LDX 


4SFF 


,'tandis om'un octet non nul ie mettra 


149 


a 








7 6 




STX 


TEMOIN 


:irremediablement a SFF 


150 


CLAVIER 


LDA 


KBD 


:Test du clavier. 


77 


NULi 


5TA 


( IMACL ) . Y 


.-Pesultat rang* A parris* da SlPOf) 


151 




BPL 


SU3TE3 


,'P»a da touch* snroncaae. 


78 




LDA 


*0 


;La raeraoirc dc travail TEMP est 


152 




CMP 


#S9B 


,- ESCAPE ? 


79 




STA 


TEMP 


; Reraise a iciu 


153 




BEQ 


ARRET 


;Oul => Arret impression. 


80 




LDA 


4S1F 


;La prochaine serie sera rangee 


lb4 




CMP 


t'U' 


;D ? 


81 




STA 


IHACH 


;en S1P00 au lieu da S1E00 


155 




BNE 


CLAV1 




82 




PLP 




; On recupere le biC qui avait ete 


156 




LDA 


ISFF 


;■> Mode Uni-directionnel . 


83 




ROR 


TEMP 


; sauvGQard© et on le relnteqre 


157 




STA 


DIR 




sa 




LDX 


42 


;dans TEMP. Les trois bits restants 


158 




RNR 


SDTTP. 




85 




PI.A 




; sont dadoublae ds la meme f aeon 


1S9 


CLAV1 


CMP 


4'B' 


.- B ? 


86 


DECAL2 


LSR 


A 


; que prfec&demment 


160 




DSE 


SUITE 




87 




FHF 




> et fucmccunL un nauvei octet TEMP 


161 




LDA 


♦ 


;=> Mode Bi— direct ionnel 


88 




ROR 


TEMP 


>*qul sera tralte cornice le premier 


162 




STA 


DIR 




81* 




PLP 






163 


SUITE 


BIT 


KBDSTR 


;Efface le clavier 


90 




ROR 


TEMP 




164 


SUITE2 


LDA 


NC 


; Passe a la colonne prec6dente 


91 




DEX 






165 




SEC 




;en reculant de 1 points 


92 




BPL 


DECAL2 




166 




5BC 


47 




93 




i.n* 


TEMP 


;puis range a partir de S1F0O 


167 




STA 


NC 




94 




LSR 


A 


/bit 7 a zero 


188 




BCS 


SAUT2 




95 




EOR 


INVERSE 


• EvejituclleraetLt Inverse 


169 




DEC 


NC+1 




96 




BEQ 


NDL2 




170 




BPL 


SAUT2 


;Et remonte jusqu'en DOUBLE 


9 / 




LDX 


45FF 


; TEMOIN mis a SFF car 


171 




BMI 


FIN 


f Termini ■ 


98 




STX 


TEMOIN 


octet en question n'est pas nul. 


172 


* 








99 


NUL3 


STA 


(IMAGL) , Y 


I'Rangement du resultat 


173 










10O 




LDA 


#0 




174 


* 








101 




STA 


TEMP 


: Remise a Ha la memoire da travail 


175 


BIDIR 


LOY 


4$FF 


.■Change le sens d' impression 


10? 




INC 


NL 


.•Coraptage des octets dc la colonne. 


176 




STY 


SENS 


1 (de droite a gauche) 


103 




LDA 


NL 


;Lcs 192 octets Ue la culonne 


177 




LDA 


40 




104 




CMP 


4192 


;ont-ils ete tous traltes ? 


178 




STA 


BARRE 


;Ratrappe un decalage de 3 barres 


105 




BCC 


SUIVANT 


;NON «> Octet suivant 


179 




JSP. 


IMPRIME 




106 


* 








180 




JSR 


TEMPO 




107 










181 




JSR 


IMPRIME 




108 


* Impression des deux series tie 192 octets 


182 




JSR 


TEMPO 
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183 JSR IMPRIME 199 3CC CLAVIER 

184 LDY #392 ; Impriine la ligne a 1'envera 200 • 

185 LINTMV np.v j«n conunencar.t per 1« dernier Octet 2 0l •••■••»««*»«**«««*«*»«**«««*"-** i ********* , ***"*'** 4 *»* 4 * J » J * 

186 PHP 202 " 

187 LDA (IHAGLJ , ¥ 20 3 ARRET BIT KBDSTR 
186 STA BARRE 20 4 Fitf LDA t30 

189 JSK inrtUMfc ;imprlme une barre ««£i.lualc ? 05 JSR DEROOLE ;3eroule le papier. 

190 JSR TEMPO ,-Teraporisation 20 6 JMP SETVID ;PR*0 

191 JSR IMPRIME ; Double la barre inprlmee . 20 7 • 

192 JSR TEMPO 20 8 »***•*■*•*•«***»***•••*****»••**••'»*■*•**••*■***•'"*■*•"**■• 
10^ PT.P ; Terraine ? (¥ ■ 0?) 20 9 ■ 

194 BNE L3NIUV .-NON => 0«c«c precedent 210 JSP. S3E3 .-Appol d« SWTS 

195 LDA #4 lOUl -> Line F«*d 211 JMP C3D9 

196 JSR DEROULE ; (Descend d'un esan) 212 BRK 

197 JSR RISTUUR ; se reposlt-loiuitr ku Ueiiut de lig-ne ^1 3 BKK 

198 CLC 214 BRK 



Programme RECOPECRAN 

NB : A la suite de ce programme est "cachee'une routine en 
langage machine. Voir \9Xte. 

10 TEXT: HOME 

20 PRINT "RECOPIE D'ECRAN GRAPH (QUE SUR SILENTYPE" 

30 PRINT" ■ 

40 LOMEM: 24576 

SO POKE 34,2: POKE 33,33: POKE 32,7 

60 OF = OA$ = ":AD - VAL (A$) + PEEK (131) + 256 * PEEK 

(132):l-0 
70 MG = IftlM =7:P0« 1 

80 DIMF$(105) 

90 REM Impression des valeurs par defaut 
100 HOWE: NORMAL 

1 10 VTAB 6; PRINT "CHARCEMENT IMAGE * GOSUB 1 100 
120 VTAB 8: PRINT "MARGE GAUCHE :": GOSUB 1 200 

130 VTAB 10: PRINT "INTENSITE :":GOSUB1300 
140 VTAB 12: PRINT 'PAGE : ': GOSUB 1400 
150 GOSUB 1500: GOSUB 1600 

160 VTAB 21 :HTAB1: CALL • 958: PRINT " <ESPACE> POUR 
MODIFIER": PRINT "<RETURWs- POUR POURSUIVRE": 
PRINT" <ESC> POUR QUITTER". PRINT" <1>OU<2> 

POUR HGR"; 

1 70 GOSUB 1 000: IF A . 141 THEN 600 

100 IFA= 155 THEN TEXT : HOME : END 

185 GOSUB 3000 

190 IF A <r >160THEN170 

200 REM Modification des parametres 

210 VI AB 21: H!AB 1 : GALL - 958: PHINI "<fc5PACt> POUR 
CHOISIR-: PRINT"-> OU <- POUR MODIFIER": PRINT 
"<RETURN> POUR CONCLURE": PRINT ' <1> OU <2> POUR 
HGR"; 

220 IT-0 

230 ON IT GOTO 300,350,400,450,500 

250 INVERSE : GOSUB 1110: GOSUB 1000: IF A = 160 THEN IT 
m 1 : GOSUB 1 1 00: GOTO 230 

260 IFA-149THENIM-(IM I 1) • (IM < 2): GOTO 250 
270 IFA=136THENIM = (IM-1)-(IM>0) + 2" NOT IM: GOTO 
250 

280 IFA=141 OR A = 155 THEN 100 
290 GOSUB 3000. GOTO 250 

300 INVERSE : GOSUB 1210: GOSUB 1000: IF A - 160 THEN IT 

= 2: GOSUB 1 200: GOTO 230 
310 IFA-149THENMG = (MG + 1)"(MG<20):GOTO300 
320 IFA = 136THENMG = (MG-1)*(MG>0) + 21 * NOTMG: 

GOTO 300 
330 IF A -141 OR A= 155 THEN 100 
340 GOSUB 3000: GOTO 300 

350 INVERSE ; GOSUB 1310: GOSUB 1000: IF A - 160 THEN IT 

- 3: GOSUB 1300: GOTO 230 
360 IF A s 149 THEN IN * (IN + 1)" (IN < 7): GOTO 350 
370 IFA-136THENIN = (IN-1)" (IN>0) + 7" NOTIN:GOTO 

350 

380 IF A= 141 OR A = 155 THEN 100 
390 GOSUB 3000: GOTO 350 

400 INVERSE : GOSUB 1410: GOSUB 1000: IF A = 160 THEN IT 
= 4: GOSUB 1 400: GOTO 230 



410 IFA=149 0RA-136THENPG = NOT (PG - 1) + 1:QOT0 
400 

420 IF A « 141 OR A = 155 THEN 100 
430 GOSUB 3000: GOTO 400 

450 INVERSE : GOSUB 1510: GOSUB 1000 IF A . 160 THEN IT 

- 5: GOSUB 1 500: GOTO 230 
460 IF A = 149 OR A - 136 THEN MOD ■ NOT MOD: GOTO 450 
470 IF A -141 OR A = 155 THEN 100 
480 GOSUB 3000: GOTO 450 

500 INVERSE : GOSUB 1610: GOSUB 1000: IF A = 160 THEN IT 

-O- GOSUB 160O' GOTO 230 
510 IF A = 149 OR A - 136 THEN DIR- NOT DIR: GOTO SCO 
520 IFA= 141 OR A- 155 THEN 100 
530 GOSUB 3000: GOTO 500 

600 IF NOT IM THEN 700: REM Pas dim ago a charger 
610 GOSUB 2000: REM Lecture catalogue 
620 IF NOT I THEN 100: REM Pas d Image sur ce disque. 
630 VTAB 22: HTAB 1 : PRINT "NOM DE FICHIER,NUMERO,0U 

<HbiURN>"; 
640 INPUT "==V:A$" IP lEN(A$) = 0THENMOO 
650 IF VAL <A$) > AND VAL (A$) < - I THEN A$ - F$< VAL (A$) 

-1) 

660 PRINT CHR$(4)"BLOAD";A$;".A-;8192 , PG;".D-;IM 

670 IM - 0: GOTO 100 

700 REM On initialise l imprimante 

710 REM Et on fixe les parametres 

720 PRINT: PRINT CHR$ (4);"PR#1": PRINT 

730 PRINT CHR$(4);-PR#Q- 

740 POKE - 12527.MG:POKE - 12528.IN: POKE -12529.255' 

DIR: POKE - 1 2524,255 * MOD: POKE -1 2525,32 * PG 
745 POKE 49239.0: POKE 49234,0: POKE 49235 + PG.O: POKE 
49232,0 

750 CALL PEEK (175) + 256 " PEEK (176) - 329: GOSUB 3030* 

GOTO100 
1000 IF PEEK (491 52) < 128 I HEN 1000 
1010 A= PEEK (49152): POKE 49168,0: RETURN 
1100 NORMAL 

1110 VTAB 6: HTAB 20: CA LL - «68: ON IM GOTO 11 30,11 40 
1120 PRINT "NON- RETURN 
11 30 PRINT "DRIVE 1": RETURN 
1140 PRINT "DRIVE T\ RETURN 
1200 NORMAL 

1210 VTAB 8: HTAB 16: CALL -868: PRINT MG: RETURN 
1300 NORMAL 

1310 VTAB 10: HTAB 16: CALL - 868: PRINT IN: RETURN 
1400 NORMAL 

1410 VTAB 12: HTAB 16: CALL -868: PRINT PG: RETURN 
1500 NORMAL 

1510 VTAB 14: CALL 868: PRINT "MODE ";; IF MOD THEN 

PRINT "INVERSE": RETURN 
1520 PRINT "NORMAL": RETURN 
1600 NORMAL 

1610 VTAB 16: CALL - 868. IF DIR THEN PRINT "UNI";: GOTO 

1630 
1620 PRINT "Bl"; 

Suite de Recopecran page suivante => 
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Manipulation de 

catalogue 



Ce programme, ecrit 
avec l'assembleur Lisa 
1.5, vous permet de 
modifier le catalogue 
de votre disquette de fa^on simple 
et efficace. Ainsi, vous pouvez 
renornmer un fichier, deplacer 
une zone de fichiers, echanger la 
place de deux fichiers, ... 

Mode d f emp!oi 

Lois riu chargement du program- 
me, l'ecran se divise en deux 
fenetres : 

• une fenetre menu sur le bas de 
l'ecran, sur laquelle s'affiche- 
ront les differentes fonctions 
auxquelles vous aurez acces ; 

• une fenetre de travail sur le 
teste de l'ecran. 

En premier lieu, vous devez 
demander le chargement d'un 
catalogue. La premiere option & 
choisir est done "C". Le 
programme vous demande alors 
la confirmation de votre choix ; 
quatre reponses sont autorisees : 

• O pour Oui ; 

• N pour Non ; 

• 1 ou 2 correspond au numero 

du lecteur ou se trouve la 

disquette dont le catalogue doit 



etre manipule. 

Le catalogue de votre disquette 
etant charge, le programme vous 
propose : 

• la lecture 

• l'edition 

• la modification 

• le reenregistrement 

• la sortie du programme. 

Lecture 

Ce choix est l'equivalent d'un 
CATALOG, il vous permet done 
de visualiser les noms de fichiers 
de votre catalogue. En 
LECTURE le programme vous 
demande le numero du premier 
secteur et le nombre de secteurs a 
lire (il verifie les depassemenis). 
Les litres s'affichent alors et sont 
precedes d'un numero (1 k 255, 
voir explications techniques) et 
du signe +, - ou &, suivant qu'il 
s'agit d'un fichier existant (+), 
d'un fichier efface (-) ou d'un 
cornmentaire (&). 

Signalons h ce propos que lors 
d'un DELETE, le fichier n'est 
pas efface de la disquette. Le 
DOS se contente de remplacer le 

numero de piste de la liste 

pistes/secteurs du fichier concer- 



ne par $FF : on peut done 
toujours retrouver dans le 
catalogue un nom de fichier 
efface auparavant. 

Lors de l'affichage du catalogue, 
si le nombre de fichiers est 
superieur au nombre de lignes 
disponibles dans la fenetre, la 
touche ESPACE vous pcrmettra 
de contimier et de visualiser tous 
les noms des differents fichiers 
composant le catalogue. Dans ce 
cas, comme k l'entr^e des 
informations, le nombre de 
secteurs occupes est inscrit. Cette 
operation effcctucc, le program- 
me vous renvoie au sous-menu 
LECTURE. 

Edition 

Le choix EDITION conduit a un 
sous-menu qui propose l'echange 
entre deux titres ou le deplace- 
ment dune zone. 
L'ECHANGE ne necessite pas 
duplications particulidres. 
suffit de donner les numeros des 
deux titres a echanger ; ainsi, 
l'ordre des noms de fichiers est 
modifie. Le programme renvoie 
ensuite a l'ecran les titres du 

secteur - catalogue determine par 
le 2eme numero. 



Suite de RECOPECRAN 

1630 PRINT "DIRECTIONNEL": RETURN 

2000 REM Sous progr. de lecture du catalogue 
2010 HOME 

2020 POKE 47082.IM: REM Drive 
2030 POKE 47083.0: REM Volume 
2040 POKE 47084,17: REM Piste 

2050 POKE 47088,187. POKE 47089,180. REM Buffer en $B4BB 

2060 POKE 47092.1: REM Read 

2070 I » 0:S - 0;P = 

2080 POKE 47085,1 5 - S. REM Secleur 

2O90 CALL PEEK{175) + 256" PEEK(176)-9 

2100 IF PEEK (47093) THEN PRINT: PRINT CHR$ (7);"l/0 

ERROR": POP : TEXT : END 
2110OF«11:POKEAD.30 

2120 IF PEEK (46267 + OF) - 255 THEN 21 80 
21 30 IF PEEK (46267 +OF) - THEN 

2210 : REM Fin du catalogue 



2140 



2150 



2160 



2170 



A- PEEK (46269 + OF): IF NOT (A = 4 OR A - 132) THEN 
2180 

POKE AO + 2, INT ({46270 + OF) / 256): POKE AD t 1 ,46270 
+ OF - 256 * PEEK(AD + 2).F$(I) = A$ 
IF I AND I = 18* INT (I/ 18) THEN VTAB 23: PRINT 
"APPUYEZ SUR UNE TOUCHE*: PRINT "POUR 
CONTINUER";: GOSUB 1000: HOME 
VTAB 4+ I - 18 " INT (I / 18):l - I ft: PRINT I;: HTAB 4: 
PRINT A$ 
2180 OF = OF + 35 
2190 IF OF < 255 THEN 21 20 
2200 S*S + 1:GOTO2080 
2210 RETURN 

3000 REM VOIR UNE PAGE HGR 

3005 IF NOT (A - 1 77 OR A = 1 78) THEN RETURN 

3010 POKE 49239,0. POKE 49234,0: POKE 49236 + (A - 178),0: 

POKE 49232.0 
3020 FOR I - T0 1000: NEXT 
3030 POKE 49236.0: POKE 49233,0: RETURN 
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Exemple : 

A panir du menu general, tapez E 
(Edition) puis E (Echange) et 
enfin 3,40. Ainsi, les titres n"3 et 
40 sont echanges et le secteur 6 
est affiche (titres 36 b 42). De la 
meme manifcre, on aurait pu 
entrer 40,3 ; dans ce cas, c'est le 
secteur 1 (titres 1 k 7) qui 
s'affiche. 

Le DEPLACEMENT permet 
d'inserer des titres ou des 
commentaires rapidement. II 
suffit d'entrer les limites 
superieure et inferieure de la zone 
h trailer et le numero du titre a 
partir duquel la zone sera 
implantee. II est evident qu'il 
s'agit, en fait, d'un echange entre 
la z.one ^ dcplacer et la zone de 
destination. Le program me verifie 
que le transfert ne se fait pas 
au-del3 des limites du catalogue. 

Exemple : 

A partir du menu general, tapez E 
(Edition) puis D (Emplacement) et 
entrez les valeurs 1,10,40. La 
zone 1 a 10 est dcplacee en 40 a 
49 tandis que la zone 40-49 passe 
en 1-10. 

Si les valeurs entrees sont 
1,10,2: la zone 1-10 passe en 

2-11, 11 passe en 1 : il y a 

insertion d'une ligne. 

On peut aussi faire "remonter" 
une zone : 

Exemple : 

Supposons que les valeurs saisies 
sont 90,100,30 : la zone 90-100 



Recapitulation 

LECTCAT 



0801- 


A9 


4C 


8n 


F5 


03 


A9 


10 




0808- 


8D 


F6 


03 


A9 


08 


8D 


F7 


03 


0810- 


A2 


00 


86 


00 


B5 


00 


9D 


00 


0818- 


78 


CA 


DO 


F8 


A9 


FO 


85 


36 


0820- 


A9 


FD 


85 


37 


A9 


IB 


85 


38 


0R?R- 


A9 


FT) 


85 


39 


?n 


58 


FC 


A9 


0830- 


12 


85 


25 


4C 


A5 


08 


42 


08 


0838- 


FE 


09 


52 


OB 


07 


OD 


87 


OE 


0840- 


13 


09 


20 


5B 


10 


20 


C6 


10 


0048- 


20 


62 


FC 


A9 


00 


85 


00 


85 


0R5fl- 


1 ft 


A9 


n 


8D 


B5 


10 


A9 


OF 


0858- 


QD 


U6 


10 


A9 


20 


8U 


BA 


10 


0860- 


A9 


01 


8D 


BD 


10 


A9 


01 


85 


0868- 


CE 


A9 


IF 


85 


CF 


20 


A9 


10 



passe en 30-40 et vice-versa. 
Ainsi, les entrees 90,100,30 et 
100,90,30 sont equivalentes. 

Modification 

Choisissons raaintenant la 
MODIFICATION d'un titre. 
Cette partie du programme offre 
les possibililes suivantes : 

• modification du titre d'un 
fichier ; 

• mise en place de commentaires 
(texte et symboles divers) ; 

• effacement du titre d'un fichier 
precedemment DELETe ou 
d'un commentaire. Par precau- 
tion, il est impossible d'effacer 
le titre dun fichier present 

Afin de modifier le nom d'un 
fichier, il faut entrer le numero du 
titre a traiter. Cclui-ci s'affiche 
precede de son numero, et 
surmontc d'une echelle, de 30 
caracteres, graduee de 1 en 1, 
reperee de 5 en 5. Le curseur est 
positionne sur le premier carac- 
tere du titre. 

Les facilites de 1 editeur (touches 
de deplacement du curseur et 
function ESCape) sont naturelle- 
ment accessaries pour cette 
modification. 

Le programme determine 
lui-meme si vous manipulez un 
commentaire, un nom de fichier 
present ou un titre de fichier deja 
efface. La seule precaution a 
prendre est de ne pas remplacer 
un titre de programme par une 
suite de symboles non acceptec 
par le DOS, celui-ci ne le 



0870- 


E6 


CF 


A9 


00 


A8 


Dl 


CE 


DO 


0878- 


17 


C8 


Dl 


CE 


DO 


12 


A5 


18 


0880- 


18 


69 


01 


OA 


OA 


OA 


38 


E5 


0888- 


18 


85 


06 


C6 


06 


m 


A5 


08 


0890- 


AO 


00 


Bl 


CE 


8D 


B5 


10 


C8 


0898- 


Bl 


CE 


8D 


B6 


10 


EE 


BA 


10 


08A0- 


E6 


18 


4C 


6D 


08 


A5 


2.S 


R5 


08A8- 


08 


A9 


00 


85 


24 


A9 


14 


85 


OODO- 


25 


85 


22 


A9 


18 


85 


23 


20 


08RR- 


58 


FC 


A9 


9E 


AO 


09 


20 


26 


08C0- 


OF 


A9 


AO 


20 


IB 


FD 


C9 


C3 


08C8- 


DO 


05 


A2 


00 


4C 


FD 


08 


C9 


08D0- 


CC 


DO 


05 


A2 


02 


4C 


FD 


08 


08D8- 


C9 


C5 


DO 


05 


A2 


04 


AC 


FD 
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08 


C9 


CD 


DO 


05 


A2 


06 


4C 
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FD 


08 


C9 


02 


DO 


05 


A2 


08 
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AC 


FD 


08 


C9 


DA 


FO 


1C 


20 


08F8- 


DF 


10 


4C 


CI 


08 


20 


FD 


FB 



retrouverait plus. II est done 
indispensable de redonner un 
nom reconnaissable par le DOS. 

L'effacement automatique s'ob- 
tient en tapant un RETURN k 
vide lors de l'entree du texte. 
Apres confirmation et controle, le 
texte est efface. II est egalcmcnt 
possible de taper ESPACR et 
RETURN ; dans ce cas le texte 
est efface et remplace par un 
'blanc' qui apparait lors du 
catalogue, sous forme d'une ligne 
vide (pour aerer...). Une tentative 
d'cffaccmcnt du titre d'un fichier 
present conduit a 1'affichage d'un 
message d'erreur, avec retour au 
menu general. 

Reenregistrement 

Votre ceuvre mise au point, il 
s'agit de la sauvegarder en la 
r^enregistrant sur la MEME 
disquette. Choisissez simplement 
1'option R (Reenregistrement) qui 
transfere le contenu de la 
memoire vers la disquette. Cette 
option est eminemment dangcrcu- 
se puisqu'elle detruit le catalogue 
original el le remplace par celui 
que vous avez prepare (croyez-en 
mes malheureuses expe- 
riences. . .). II est done necessaire 
de confirmer le choix par 1/2/O/N 
: lecteur 1 ou 2, Oui, Non. 

Attention : il est indispensable 
d'enregistrer le catalogue sur la 
MEME disquette. Sinon adieu 
vos beaux fichiers ! 

Terminer 

Vous pouvez recommencer une 
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seance de travail, evcntucllcmcnt 
en changeant de lecteur, sinon 
tapcz T pour Terminer. 

II existe un controle, lors de la 
demande de sortie du program- 
me, afin de ne pas oublier 
d'enregistrer la seance de travail. 
Une seconde sortie, immediate- 
ment apr£s la premifcre, vous 
permet de quitter le programme 
sans enregistrement. 

Controles effectues 
par le programme 

• Tout RETURN a vide renvoie 
au menu principal. 

• Lcs numeros des litres ne 
peuvent etre nuls ou superieurs 
au maximum autorise par le 
catalogue (en tout etat de cause 
<= 255).^ 

• Par consequent, il est impossi- 
ble de demander le transfert 
d'unc zone vers une autre 
franchissant la limite. du 
catalogue, par exemple 1,50, 
80 (pour un catalogue normal 
contenant au plus 105 litres), 

qui deplace les titres 1 a 50 
vers 80 a 129. 

• Le nombrc dc rcponscs doit 
correspondre h ce qui est 
attendu. 

• En cas de non respect des 
regies ci-dessus, le programme 
vous repose la question. 

• On ne peut pas effacer le titre 
d'un fichier present. 

• Rappel a l'ordre en cas de 
sortie du programme sans 



0990- 


C3 


CE 


CI 


CC 


C5 


D2 


AO 


D2 


0998- 


D5 


CF 


DO 


AO 


A6 


CO 


5F 


AO 


O9A0- 


BA 


AO 


D8 


C9 


CF 


C8 


C3 


AO 


09A8- 


C5 


D2 


D4 


CF 


D6 


CO 


AO 


C5 


09BO- 


CE 


C9 


CD 


D2 


C5 


DD 


D4 


DB 


09B8- 


AO 


AO 


AO 


C5 


D2 


D5 


D4 


C9 


09C0 


D2 


C3 


C5 


C5 


DD 


D2 


DB 


AO 


09C8- 


AO 


AO 


AO 


AO 


D2 


C5 


C9 


C6 


09DO- 


C9 


C4 


CF 


DD 


CD 


DB 


AO 


CE 


09D8 


CP- 


CD 


DA 


C9 


C4 


DD 


C5 


DB 


09E0- 


AO 


AO 


AO 


AO 


AO 


AO 


C5 


D2 


09E8- 


D5 


D4 


C3 


C5 


DD 


CC 


DB 


AO 


09F0- 


AO 


AO 


D4 


CE 


C5 


CD 


C5 


C7 


09F8- 


D2 


CI 


C8 


DD 


C3 


DB 


A9 


OC 


0A00- 


AO 


0B 


20 


26 


OF 


A2 


03 


A9 


0A08- 


FD 


AO 


09 


20 


43 


OF 


A9 


00 


0A10- 


85 


01 


A5 


19 


18 


65 


1A 


38 


0A18- 


E9 


02 


85 


IB 


A5 


18 


C5 


IB 



enregistrement. 

Une disquette dont le catalogue 
est modifie par cet utilitaire ne 
peut plus etre copiee entierement 
par le programme FID, les 
commentaires provoquant une I/O 
ERROR. II faut done copier les 
fichiers en sautant les commen- 
taires. Le programme COPYA 
fonctionne parfaitement. 

Technique 

L'utilitaire est entitlement dcrit en 
assembleur (Lisa 1.5), d'une part 
necessaire pour la rapidite 
d'execution, d'autre part pour le 

plaisir... 

Globalement, le catalogue est 
charge en MEV, manipule et 
enfin reecrit sur la disquette. Le 
programme ne touche pas a la 
VTOC (piste $11, secteurO). 

• Possibility de lire n'importe 
quel catalogue commen$ant en 
piste $11, secteur $F, en 
utilisant les pointeuis de 
chainage dun secteur avec le 
suivant, autorisant un 
maximum de 255 titres. En 
recuperant les pistes & 2, il 
est possible de stocker environ 
260 fichiers de 2 secteurs 
chacun, un secteur lisle 
piste/secteur et un secteur 
donnees, sur une seule 
disquette. 

• Assemblage en $801 pour 
fliminer le SYNTAX ERROR 
provoque par NEW, LIST ou 
RUN apres retour au Basic 
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($800 doitcontenir 0). 

• Sauvegarde de la page zero en 
$7800 et debranchement du 
DOS h l'initialisation de la 
routine. La mise hors service 
du DOS s'explique par ia 
necessite dc pouvoir manipuler 
des mots reserves du DOS, 
sans obtenir le fatal NOT 
DIRECT COMMAND. 

• En MEV, le catalogue est 
stocke & partir de l'adresse 
$2000. Une zone de transition 
pour les deplacements com- 
mence en $4600. 

• I/entree des commentaires 
entraine la mise du numero de 
piste de la liste piste/secteur a 
une valeur superieure & $22 et 
inferieure k $FF ($30) ; en 
d'autres termes, le commen- 
tate apparait pour le DOS ni 
comme un fichier efface (il ne 
s'afficherait pas lors d'un 
CATALOG), ni comme un 
fichier present (une tentative 
de chargement entratnerait une 
I/O ERROR). C'est ce numero 
insolite que FID ne digere pas. 

• La routine d'ecriturc sur 
disquette est moditlee de fagon 
a pouvoir enregistrer un 
catalogue plus long que la 
normale. Elle commence par le 
secteur $F, piste $11 puis 
utilise les octets de chainage 
pour les secteurs suivants. 

• Retour au Basic en rebranchant 
le DOS, et en restituant la page 
zero. 

a 
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UU 


ftn 


□ -7 


i n 

J. u 


R R 


PR 


?n 

£ VJ 


AQ 

rA J 


l/bov- 


i n 

1 VJ 


PC 


FP 


fit 

A J 


PP 




r r 


r vj 




1J 


rr 

Cb 


DA 


i n 


an 

AU 


n t 

VJ 1 


rs l 


RR 

CD 


A TT A" A 

UECU — 


oD 


d r, 
DO 


i n 
xu 


PP 
UO 


OA 


PR 
CD 


on 
ou 


E) U 


f\ CPQ 
Uh.t-0 — 


i n 

J. u 


CC 


FP 

bi- 


AC 


ar 

MP. 


DP 


A VJ 


PC 

V-. u 




1 [1 

JL u 




J o 


h'f* 
t — 




VJ t. 


FC 


A9 


U uuo 


ur 


an 

AU 


np 

Ur 


on 


OC 


np 

vjr 


pn 

£. VJ 


CO 


nFFfi— 

J E C U ~ 


FP 
E Vw 








on 


T V^ 


A5 

j 


08 

VJ u 


^ r c Q 

U CjCjO"" 


Ul— 


O A 

ZU 


ZE. 


np 

UC 


np 

UC 


?n 

z u 


1 

1 £ 


1 R 
1 J 


a r»r»A 

0EF0- 


A C 

Ob 


14 


A A 

Ui 


A C 

Ub 


ft" 

UC 


j. y 


A A 
Z^U 


A 71 

0-A 


0EF8- 


20 


29 


OB 


2F 


OF 


2F 




2F 


0F00- 


31 


28 


20 


1A 


05 


OD 


12 


09 


0F08- 


06 


0E 


OF 


03 


20 


2D 


20 


16 



0F10- C5 CE C9 CD D2 C5 D4 AO 

0F18- D4 CF. G5 CO C5 D2 D4 D3 

0F20- C9 C7 C5 D2 CE C5 85 EB 

0F28- 84 EC AO 00 Bl EB AA A8 

0F30- Bl EB C9 CO FO 08 20 FD 

0F38- FB CA 8A DO F2 60 20 62 

0F40- FC DO R6 R5 EB 84 EC 86 

0r<3B- CE A9 AO 20 6C FD EO 00 

OF50- DO 03 4C B7 08 E4 CE 90 

0F58- 18 C6 CE 4 6 CE Ab CE 8b 

0F60- 75 BD FF 01 C9 AC DO 02 

O-Rfifi- C6 CF. CA DO F4 A5 CE F0 

0F70- OC €8 68 A5 EC 43 A5 EB 

0F78- 49 20 DF 10 60 AO 00 A2 

OF80- 01 A5 75 FO 70 A9 AC 85 

0F88- FF BD 00 02 C5 FF DO 09 

0F90- CA RD DO 02 29 OF 4C D7 

0F98- OF E8 BD 00 02 C5 FF F0 

0FA0- IE 20 FB OF 99 19 00 CA 

0FA8- CA BD 00 02 C9 B0 F0 32 

0FB0- C9 Bl DO 15 18 B9 19 00 

0FB8- 69 64 E8 B8 4C D7 OF CA 

0FC0- BD 00 02 2 FB OF 4C D7 

0FC8- OF C9 B2 DO AA E8 E8 B9 
0FD0- 19 00 18 69 C8 BO 9A F0 

0FD8- 98 C5 06 F0 02 B0 92 99 

0FE0- 19 00 Efl F.ft Ffi C8 C6 75 

UFE8- F0 0B A5 7 5 C9 FF DO 99 

0FF0- A9 00 85 00 60 A9-8D 85 

0FF8- FF DO 8E 29 OF 99JL9 00 

1000- CA BD 00 02 29 OF 9D 00 

1008- 02 OA OA 18 70 00 07 OA 

1U1U- 79 19 00 £8 60 38 E9 01 

1018- 85 ID A9 00 85 IE A2 08 

1020- A5 ID 85 FB A5 IE 06 FB 

1028- 2A C9 07 90 04 E9 07 E6 

1030- FB CA DO F2 ftS 1C A9 20 

1038- 18 65 h'B 85 3D 85 3F 85 

1010- FA A5 1C OA OA OA OA OA 

1048- 18 65 1C 65 IC 6b 1C 69 

1050- OB 05 3c &5 F9 18 69 22 

1058- 85 3E C.0 20 03 10 A9 E8 

106U- AO 0E 20 26 OF AD B3 10 

1060- 09 30 20 FD FE A9 F5 AO 

1070- 0E 20 26 OF A9 AO 20 IB 

1078- FD 48 20 FD FB 68 C9 CF 

1080- FO 26 C9 EF FO 22 C9 Bl 

1088- DO 06 29 FF 8D B3 10 60 

1090- C9 B2 DO 06 29 FF 8D B3 

1098- 10 60 A9 00 85 24 C6 25 

10A0- 20 9C FC 68 68 4C A5 08 

10A8- 60 A9 10 AO Bl 20 D9 03 

10BO- 60 01 60 01 00 11 OF C2 

10B8- 10 00 20 00 00 01 00 00 

10CO- 60 01 00 01 EF D8 A<* 00 

10C8- 8b TI A9 14 85 23 A5- 08 

10D0- 85 25 60 AO CO 20 E9 FB 

10D8- A9 70 AO CO 20 E6 FB A9 

10E0- 20 AO CO 20 E6 FB 60 A2 

10E8- 00 CA DO FD 60 
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Pom's n° 20 



Programme 

LECTCA T.SOURCE 
(Assembleur LISA 1.5) 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 



NLS 



- EDITEUR DE CATALOGUE DOS 3.3 = 

- ( CATALOGUE COMMENCANT EN 

PISTE $11, SECTEUR $0F ) 



11 






SO 


12 


LECFLG 


EPZ 


$1 


13 


ADR 


£FZ 


$EB 


14 


FLAG 


EPZ 




15 


CH 


EPZ 


$24 


16 


CV 


EPZ 


*j £. *J 


17 


SECT 


EPZ 


$18 


18 


CI 


EPZ 


S19 


19 


C2 


EPZ 


$1A 


20 


NBSECT 


EPZ 


SIB 


21 


F 


EPZ 


$lc 


22 


NUMFIC 


EPZ 


$1D 


IS 


NUMMAX 


EPZ 


$06 


24 


CVANT 


EPZ 


$08 


25 


AIL 


EPZ 


$3C 


26 


A1H 


EPZ 


$3D 


27 


A2L 


EPZ 


$3E 


28 


A2H 


EPZ 


$3F 


29 


A4L 


EPZ 


$42 


30 


A4H 


EPZ 


$43 


31 


FLAG2 


EPZ 


575 


32 


DESTL 


EPZ 


$F9 


33 


DESTH 


EPZ 


$FA 


34 


C 


EPZ 


$FB 


35 


BOUCLE 


EPZ 


$FC 


36 


IN 


EQU 


$200 


j / 


nr.TT c 






38 


AMPERV 


EQU 


$3F5 


39 


3GNFLT 


EQU 


$E301 


40 


LINPTR 


F.QU 


SF.D24 


4 1 


ORIG 


EQU 


$2002 


42 


PRBL2 


EQU 


SF94A 


43 


CTRL. S 


ECU 


SFB7C 


44 


BELL2 


EQU 


$FBE6 


45 


STORAV 


EQU 


$FBF0 


4 6 


VIDOUT 


EQU 


3FBFD 


47 


KEYIN 


EQU 


$FD1B 


48 


CR 


EQU 


SFC62 


49 


CLREOL 


EQU 


$FC9C 


50 


GETLIN 


EQU 


$FD6C 


51 


MOVE 


EQU 


5FE2C 


52 








53 




ORG 


S901 


54 


i 






55 









; JMP(ADR) 



NBRE SECT 

STOCKE 

LES 

DONNRF. S 



56 



INITIALISATION & 



57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
lib 
116 
117 



BEGIN 



LDA #S4C 
STA AMPERV 

LDA #DEBPGM 

STA AMPERV+1 
LDA /DEBPGM 
STA AMPERV+2 



$4C = JUMP 



SAUVEGARDE PAGE 



DEBPGM LDX #$00 

STX FINFLG 

PGO LDA $00, X 

STA $7800, X 
DEX 

BNE PC0 
DEBRANCHE LE D.O.S. 



256 BOUCLE S 
ORAPFAU ZERO 



LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 



#$F0 

S36 

#$FD 

$37 

#$1B 

538 

#$FD 

$39 



JSR $FC58 
LDA #18 
STA CV 
JMP MENU 



TABLE D'ADRESSE 



TABLE 



ADR INIT 
ADR LECTUR 
ADR EDIT 
ADR MOD IF 
ADR ECRIT 
ADR FIN 



INITIALISATION LECTURE 



in: i 



JSR OK 7 

JSR WINDOW 

JSR CR 

LDA #$00 

STA FINFLG 

STA SECT 

LDA #$11 



Pom's n° 20 



27 



118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 DEBUT 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
143 
149 
150 
151 
152 

(SECT+1) *8 
153 

154 SUITE 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 MENU 
171 
172 
173 
174 
175 
176 
177 



STA IBTRK 
LDA #5 OF 
STA IBSECT 
LDA #520 
STA IBBUFP+1 
LDA #51 
STA IBCMD 
LDA #0RIG-1 
STA SCE 
LDA /ORIG-S100 
STA 5CF 



; LECTURE 



DEBUT DE LECTURE 



JSR DOS 
INC SCF 
LDA #S0 
TAY 

CMP <$CE>,Y 
BNE SUITE 
INY 

CMP (SCE) , y 
BNE SUITE 
LDA SECT 
CLC 

ADC #1 

ASL 

ASL 

ASL 

SEC 

SBC SECT 
STA NUMMAX 
DEC NUMMAX 
-SECT-1 
JMP MENU 
LDY #$0 
LDA (SCE),Y 
STA IBTRK 
INY 

LDA ($CE),Y 
STA IBSECT 

INC IBBUFP+1 

INC SECT 
JMP DEBUT 



MENU GENERAL 



LDA CV 
STA CVANT 
LDA #0 
STA CH 
LDA #20 
STA CV 
STA 522 
LDA #24 



; No PISTE=0 ? 

; No SECT»0? 
; CALCUL 



NUMMAX 
-(SECT'I)*7 
(SECT+1) *8 



; NUMMAX 



; No PISTE 



; NO SECTEUR 



178 




STA 




179 




JSR 


SFC58 


180 Ml 


LDA 


#MESS1 


181 




LDY 


/MESS1 


182 




JSR 


AFFICH 


183 








184 














185 




SAISIE DE L 


106 














187 








188 HE?1 


LDA 


#SA0 


189 




JSR 


KEYIN 


190 




CMP 


#"C n 


191 




BNE 


L? 


192 




LDX 


#0 


193 




JMP 


SAUT 


194 1? 


CMP 


#"L" 


195 




BNE 


E? 


196 




LDX 


#2 


197 




JMP 


SAUT 


198 E? 


CMP 


#"E" 


199 




BNE 


M? 


200 




LDX 


#4 


201 




JMF 


SAUT 


202 M? 


CMP 


#"M n 


203 




BNE 


R? 


204 




LDX 


#6 


205 




JMP 


SAUT 


206 R? 


CMP 


# "R" 


707 




BNE 


T? 


208 




LDX 


#8 


209 




JMP 


SAUT 


210 T? 


CMP 


# M T" 


211 




BEQ 


FIN 


212 




JSR 


RP.TJ. 


213 




JMP 


KfcFl 


214 SAUT 


JSR 


VIDOUT 


215 




JSR 


CR 


216 




JSR 


CR 


?17 ; 








218 




LDA 


TABLE, X 


219 




STA 


ADR 


220 




LDA 


TABLE+1, X 


221 




STA 


ADR+1 


222 




JMP 


(ADR) 


223 ; 
















224 ; 

225 ; 




RETROUVE PAGE0 


226 ; 














227 ; 








228 FIN 


LDA 


FINFLG 


229 




CMP 


#$FF 


230 




BEQ 


OKFIN 


231 




JSR 


WINDOW 


232 




JSR 


SFC58 


233 




JSR 


CLOCHE 


234 




JSR 


CR 


235 




JSR 


CR 


236 




LDA 


#RECMSS 


237 




LDY 


/RECMSS 


738 




JSR 


AFFICH 



; CHARGEMENT ? 



; LECTURE ? 



; ED I TON ? 



; MODTF ? 



; ENREGIST? 



; TERMINER ? 
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Pom's n° 20 



239 DEC FINFLG 

240 JMP MENU 

241 ; 

242 RECMSS HEX 26 

243 BLK "ERTSIGERNE SAP ZEVA'N SUOV 
NOITNETTA" 

244 ; 

245 OKFIN LDX #500 ; 256 BOUCLE3 
24 6 PAGO 
247 



296 CMP #20 

297 BCS M3 
DEJA POSITIONNEE 



; FENETRE MENC 



248 
249 
250 ; 
251 
252 
253 
254 
255 
256 
257 ; 
258 

259 MESS0 

260 ; 

261 ME S SAG STR 

262 ; 

2 63 MESS1 
ER0TIRCEE3R 



LDX #500 
LDA $7800, X 
STA $00, X 
DEX 

BNE PAGO 



JSR $FC58 
LDA #MESSAG 
LDY /MESSAG 
JSR AFFTCH 
JSR CLOCHE 
JSR CR 



298 
299 
300 
301 
302 
303 
304 
305 
306 
307 

308 M3 
309 



JMP 
STR 



3TR 



J3D0 



RETOUR BASIC 



" : RtJF.TCEL ED OREMUN " 

"RECNALER RUOP S@ n 

" : XIOHC ERTOV0 ENIMRE] T [ 
RETFTDO]M[ NOXTID]E f 



TNEMEGRAH ] C [ 



ERUTCE] L [ 
264 
265 
266 
267 
268 
269 
270 

2 71 LECTOR LDA 4MESS2 



LECTURE TXJ RHFFER 



310 
311 
312 
313 
314 
315 
316 
317 
318 
319 

320 

321 

322 ONLIT 
323 
324 
325 

326 ONLIT2 JSR CR 

327 DEC CI 

328 LECT2 LDA #00 



LDA CV 
STA CVANT 
LDA #0 
STA CH 
LDA #20 
STA CV 
STA $22 
LDA #24 
STA $23 
JSR $FC58 
JSR CLOCHE 
LDA #MESS3 
LDY /MESS3 
JSR AFFICH 
LDA #0 
LDX SECT 
INX 

JSR LINPTR 
LDA #MESS3B 
LDX /MESS3B 
JSR AFFICHE 
JSR CR 
JSR CR 
JMP LECTUR 
LDA LECFLG 
BNE ONLIT2 
JSR WINDOW 
DEC LECFLG 



329 
330 



STA F 
STA FLAG2 



272 


LDY 


/MESS2 




331 


NCJMERO LDA 


CI 


273 


JSK 


AFFICH 




332 


ASL 




2 74 REP 2 


LDX 


#$03 




333 


ASL 




2 lb 


LDA 


#LECTUR-1 




334 


ASL 




276 


LDY 


/LECTUR 




335 


SEC 




277 


JSR 


SAISIE 




336 


SBC 


CI 


2 78 ; 








337 


CLC 




279 ; 








338 


ADC 


#01 


280 i 








339 


ChC 




281 


LDA 


#0 




340 


ADC 


F 


2 82 


STA 


LECFLG 




341 


STA 


NUMFIC 


2 83 TEST 


LDA 


CI 




342 


PRTITL TAX 




284 


CLC 






343 


LDA 


#0 


285 


ADC 


C7 




344 


JSR 


LINPTR 


286 


SEC 






345 


LDX 


#2 


287 


SBC 


#$02 




346 


JSR 


PRBL2 


288 


STA 


NBSECT 


; C1+C2-2 


347 


LDA 


#$4 


NOMBRE DE 


SECTEURS A LIRE 




348 


STA 


CH 


289 


T.DA 


SECT 




349 


LDA 


/ORIG 


290 


CMF 


NSSKCT 




350 


CLC 




291 


BCS 


ONLIT 


; I < C1+C2-2 


351 


ADC 


CI 










352 


STA 


$CF 


293 ; DEPASSSMENT DU NOMbKE Dfcl 


SECTEURS 


353 


LDA 


F 










354 


ASL 




295 


LDA 


CV 




355 


ASL 





; AFFICHE SECT 



;C1=C1-1 
;F=0 

;0=LIRE 1 SECT 



; A->C*7 



; A->F+1+7*C 



; AFF X=2 SPACE 



Pom's n° 20 



J 



29 



356 




ASL 






416 


35"? 




ASL 






417 


358 




ASL 




; F*32 


418 


359 




CLC 






419 


360 




ADC 


F 




420 


361 




ADC 


F 




421 


362 




ADC 


F 


; F*35 


422 


363 




ADC 


#ORIG+9 




423 


364 




STA 


SCE 




424 


365 




LDX 


#S00 




425 


366 




LDA 


(SCE, X) 




426 


36/ 




BEQ 


MOINS 




427 


368 




CMP 


#$FF 




428 


369 




BEQ 


MOINS 




429 


370 




CMP 


#S30 




430 


371 




BNE 


PRESEN 




431 


372 




LDA 


#"&" 


; COMMENTA1RE 


432 


373 




BNE 


MOINS+2 


; JMP 


433 


374 


PRESEN 


LDA 


#" + " 


; FICH PRESENT 


434 


375 




3N I 


MOINS+2 




435 


376 


MOINS 


LDA 


#"-" 


; FICH EFFACE 


436 


3/7 




JSR 


VIDOUT 




437 


378 




INC 


CH 




438 


379 




LDX 


#S1E 


; 30 BOUCLES 


43y 


380 


BCLA 


LDY 


#503 




440 


381 




LDA 


(SCE) , Y 




441 


382 




JSR 


VIDOUT 




442 


383 




INC 


SCE 




443 


384 




DEX 






444 


385 




TXA 






445 


386 




BNE 


BCLA 




446 


38/ 




LDA 


FLAG2 


;0=LIRE 1 SECT 


447 


389 




DEQ 


CONT 




448 


389 




RTS 




;SINON,->MODIF 


449 


390 


CONT 


LDA 


#S8D 


;C-R 


450 


391 




JSR 


CTRL . S 


; PAUSE 


451 


392 




INC 


F 


; F=F+1 


452 


393 




LDA 


F 




453 


394 




CMP 


#$07 




454 


395 




BNE 


NUMERO 




455 


396 




INC 


CI 


; C=C+1 


456 


397 




LDA 


NBSECT 




4 57 


398 




CMP 


CI 




458 


399 




BCC 


*+5 




459 


400 




JMP 


LECT2 




4 60 


401 




JSR 


CR 




461 


402 




LDA 


tma 




4 62 


403 




JSR 


KEYIN 




463 


404 




CMP 


#" " 




464 


405 




BNE 


*+ll 




465 


406 




INC 


CI 




466 


407 




LDA 


#S01 




467 


408 




STA 


C2 




4 68 


409 




JMP 


TEST 




469 


410 




JMP 


MENU 




470 


411 










471 


41? 


MF.SS? 


STR 


m z ERIL A SRUETCES ED ERBMON 


472 


TE RUETCES 


rel 


UD ON" 




473 


413 










474 


414 


MESS3 


STR 


n TNEMELUES" 




47 5 


415 


ME333B 


STR 


"SRUETCES " 




476 



EDITION DU CATALOGUE 



EDIT 



MA 



JSR CR 
LDA -#506 
STA CI1 
LDA 4MESS4 
LDY /MESS4 
JSR AFFICH 



SAISIE DU CHOIX 



LDA 


#" " 


JSR 


KEYIN 


PHA 




JSR 


VIDOUT 


PLA 




CMP 


#"D" 


BEQ 


DEPLAC 


CMP 


#"E" 


BEQ 


ECHNGE 


JSR 


BELL 


JMP 


EDIT 



DEPLACEMENT 



DEPLAC 



M5 



JSR CR 
JSR CR 
LDA #MESS5 
LDY /MESS5 
JSR AFFICH 



SAISIE DE LA REPONSE 



8fciP5 



LDX #$05 
LDA SM5-1 
LDY /M5 
JSR SAISIE 



TESTE SI C2<C1 



LDA C2 
CMP CI 
BCS OVER? 
TAX 
LDA CI 
STA C2 
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477 

478 

479 
48f) 
481 
482 
483 
484 
485 
486 
■187 
488 
489 
4 90 
491 
492 
493 
4 94 
495 
496 
4 97 
498 
499 
500 
501 
502 
503 

504 

505 

506 

507 

508 

509 

MO 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 



OVER? 



STX CI 

SEC 

SBC CI 

STA BOUCLE 



TESTE SI DEPASSEMENT DE NUMMAX 
PAR LA ZONE DE RECEPTION 



LDA 
CLC 
ADC 
CMP 
BEQ 
BCC 
JSR 
■JMP 

MONTE? JSR 
LDA 
CMP 
BCS 

LDA 
STA 
LDA 
CLC 
ADC 

MONO STA 
INC 
JMF 

MONT EE LDA 
BNE 



NBSECT 

BOUCLE 
NUMMAX 
MONTE? 
MONTE? 
CLOCHE 
M5 

WINDOW 
CI 

NBSECT 
MONT EE 

C2 
CI 

NBSECT 

BOUCLE 
C2 

BOUCLE 
BCL5 
NBSECT 
MONO 



; -NUMMAX 
J < NUMMAX 



C1>C3 



C1=C2 



; C3=C3+BOUCLE 

; C2-C3 



; JMP 



ECHANGE 



ECHNGE JSR CR 
JSR CR 

M6 LDA #MESS6 

LDY /MESS 6 
JSR AFFICH 



SAISIE REPONSE 



REP 6 



LDX #S03 
LDA #MG-1 
LDY /M6 
JSR SAISIE 
LDA #$01 
STA BOUCLE 
JSR WINDOW 



; 1 BOUCLE 



53Q ; 

539 BCL5 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
5G8 
569 
570 
571 
572 
573 
574 

575 fOS 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 

586 MEGS4 
TNEMECALPED - ]D[ 

587 ; 

588 ; 

589 MESS5 STR " : NOITANITSED AL ED . PUS 
ETIMIL AL TERECALPED A ENOZ AL ED SETIMIL SEL 
ZERTNE" 

590 ; 

591 ; 

592 MESS6 STR *! RECALPED A REIHCIF ED .oN 
SEL ZERTNE " 

593 ; 

594 ;============================ 



LDA CI 
JSR ADRESS 
LDA #$00 
STA A4L 
LDA #S4G 
STA A4H 
LDY If $00 
JSR MOVE 
LDA DESTL 
STA A4L 
LDA DESTH 
STA A4H 
LDA C2 
JSR ADRESS 
LDY #500 
JSR MOVE 
LDA #500 
STA AIL 
LDA #S46 
STA A1H 
LDA #622 
STA A2L 
LDA #$46 
STA A2H 

LDA DESTL 
STA A4T. 

LDA DESTH 

STA A4H 

LDY #$00 

JSR MOVE 

LDA CI 

CMF C2 

BCS POS 

DEC CI 

DEC C2 

JMP POS+4 

INC CI 

INC C2 

DEC BOUCLE 

BNE BCL5 

JSR CR 

INC C 

LDA C 

STA CI 

LDA #S01 

STA C2 

JMP TEST 

STR " 



VERS LECTURE 



XIOHC ERTOV@@ENOZ ENU'D 
@EGNAHCE - ]E I" 
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595 

596 
597 
598 
599 
600 MOD IF 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
destl,d: : 
620 
621 
62? 
623 
624 
625 

626 M8 
627 
628 
629 
630 ; 
631 
63? 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
64 5 
646 
647 
648 
64 9 ; 

650 ; 

651 ; 
652 
653 

654 M9 



MODIFICATION DES TITRES 



LDA f MESS 7 
LDY /MESS7 
JSR AFFICH 



SAISIE DE LA REPONSE 



LDX #01 
LDA #MODIF-l 
LDY /MOD IF 
JSR SAISIE 
JSR WINDOW 



CALCUL D 1 ADRESSE 



LDA CI 
JSR ADRESS 

H 

JSR CR 



; DEBUT EN 



AFFICH AGE DU TITRE A MODIFIER 



LDA #MES58 
LDY /MESS 8 
JSR AFFICH 
JSR CR 

LDA #$FF 
STA FLAG? 
LDA CI 
STA NUMFIC 
LDA C 
STA CI 
LDA NUMFIC 
JSR PRTITL 



;NOUVEAU TITRE 

; SFF=1 TTTRF. 
; Ho DU TITRE 
; No SECTEUR 



SAISIE DE LA CHAINE 



LDA #6 
STA CH 
LDA #$80 
JSR GETLIN 



; CARACT NUL 



TEST 



655 


LDY 


/MESS9 


■ 


656 


JSR 


AFFICH 




657 


LDA 


I" " 




658 


JSR 


KEYIN 




659 


CMP 






660 


BEQ 


OUI? 


,-PEUT-ON EFF 


661 


CMP 


#"o M 




662 


BEQ 


OUI? 


; IDEM 


663 


LDA 


# n N n 




664 


JSR 


VIDOUT 




665 


LDA 


#"0" 


; ON NE VEUT 



EFFACER 



TXA 

BNE BCL7 
LDA #MESS9 



; NON VIDE 



PAS 
666 
667 
668 
669 

67 

671 ; 

672 OUI? 
67 3 

674 
67 5 
67 6 
67 7 

67 8 

67 9 
680 
681 
682 
683 
684 
685 
686 
687 

688 NON 

68 9 

690 M10 
691 
692 
693 
PAS 
694 
695 
696 
697 
698 
699 
7O0 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 



JSR VIDOUT 
LDA #"N" 
JSR VIDOUT 
JSR CR 
JKP FINI 



LDA 


r-o" 


JSR 


VIDOUT 


LDA 


l"D* 


JSR 


VIDOUT 


LDA 


#"T" 


JSR 


VIDOUT 


JSR 


CR 


LDY 


#$00 


LDA 


(DESTL) ,Y 


BEQ 


*+6 


CMP 


#523 


BCC 


NON 


LDA 


#SFF 


STA 


(DESTL) , Y 


LDY 


#$03 




BCL10-2 


JSR 


CR 


JSR 


CR 


JSR 


CLOCHE 


LDA 


#MESS10 


LDY 


/MESS1U 


JSR 


AFFICH 



EFFACER 

JSR 
JMP 

BCL7 CPX 
BCC 
LDX 

X<33 SIX 



CR 

MENU 

#$21 
X<33 

#s?n 
ci 



; VERS LECTURE 



; A=0 
; A <35 

;FICH SUPPRIME 



JMP 



; ON NE PEUT 



;X<33 ? 

;X=32 
/SAUVE X 



ON RE MP LACE UN TITRE PAR UN COMMENTAIRE? 



LDY #$00 
T.DA (A1L),Y 
BEQ COMMEN 
CMP #$30 
BEQ COMMEN 
CMP #3FF 
BEQ COMMEN 
BNE TITRE 
COMMEN LDA #$30 



; COMMENTAIRE ? 
;FICH EFFACE ? 



IWs n° 20 



#$21 
(AIL) 



TYA 
LDY 
STA 
INY 

STA (AlL),Y 

LDY #2 

STA (A1L),Y 



; MI3E A 
; ZERO DU 
; NOMBRE DE 
; SECTEURS 

;COD FICH TEXT 



TRANSFERT IN -*> T ITRE 



LDY #$03 
LDX #$00 
LDA TN,X 
STA (A1L),¥ 
INX 
INY 

CPX CI 
BCC BCL9 



X<C1 



714 STA (AIL) , Y ; CODE 
POUR FICHIER SUPPRIME MAIS APPARAISSANT T.ORS 
D'UN 1 CATALOG ' 

715 ; 
716 

717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 

728 TITRE 
729 

730 BCL9 
731 
732 
733 
734 
735 
736 
737 

738 
739 
740 
741 
742 

743 BCL10 
744 
745 
746 
747 

748 FINI 
749 
750 
751 
752 
753 
754 
755 ; 
/56 ; 
757 

758 ; 

759 ; 
7 60 MESS8 



COMPLETE LE TITRE \VF.C. 
DES BLANC S ( MAX. 30 CARACTEKES) 



LDA #" " 
CPY #S21 
BCS FINI 
STA (AIL) 
INY 
BNE 
INC 
LDA 
STA 
LDA 
STA C2 
JSR CR 
JMP TEST 



BCL10 
C 

c 

CI 

#S01 



Y>=30 



JMP 



;VERS LECTURE 



MESS7 3TR 



REIFIDOM A ERTIT UD OREMUN" 



STR" ! 



7 61 ; 
762 ; 

7 63 MESS9 STR n ; N/O ? ERTIT EC RECAFFE 
SUOV-ZELUOV " 
7 64 ; 
7 65 ; 

766 MESS10 HEX 21 ; LONG MESSAGE 

7 67 BLK "EMIRPPUS NON REIHCIF : 

ELBISSOPMI" 

768 ; 

7 69 ; =======*================:======= 



770 










771 


. - 


ECRITCJRE SUR 


DTRQUETTE 


772 


; = 






= 


773 

774 











;===== 








775 


ECRIT 


JSR OK? 






776 




JSR CR 






777 




LDA #502 




; ECRITURE 


778 




STA IBCMD 






779 




LDA SECT 






780 




STA BOUCLE 






781 




LDA #$11 






782 




STA IBTRK 




;PISTE $11 


783 




LDA #$0F 






784 




STA IBSECT 




;SECTEUR $F 


705 




LDA #$20 






786 




STA TRBUFP+1 




; BUFFER 


787 




STA ADR+1 






788 




LDA #0 






789 




STA IBBUFP 




;EN $2000 


7 90 




STA ADR 






791 RCT.11 


JSR DOS 






7 92 




DEC BOUCLE 






793 




LDA BOUCLE 






7 94 




CMP ft$FF 






795 




BEQ END 






796 




INC IBBUFP+1 






797 




LDY #1 






798 




LDA (ADR) , Y 




;No PISTE 


799 




STA IBTRK 






800 




INY 






801 




LDA (ADR) , Y 




;No SECTEUR 


802 




STA IBSECT 






803 




INC ADR+1 






804 




TMD Q/-T 1 1 






805 , 










806 , 










807 , 

808 ; 












FIN D 1 ENREGISTREMENT 


809 ; 
010 ; 


















fill END 


JSR WINDOW 






812 




JSR SFC58 






813 




JSR CR 






814 




LDA #MESS13 






815 




LDY /MESS 13 






816 




JSR AFFICH 






817 




JSR CR 






818 




LDA #$FF 






819 




STA FTNFLG 






820 




JMP MENU 






821 ; 










822 MESS11 


HEX 0C 






823 




INV " -ON RUETCEL' 




824 ; 










825 ME5S12 


HEX 19 






826 




INV » : ) N/O/2/1 ( 


ZEMRIFNOC - " 


827 ; 










828 MESS13 


STR "EN1MKET 


TNEMERTSIGERNE" 



829 
83U 
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831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 

849 
850 
851 
852 
853 
854 
855 

857 
858 
859 
860 
861 
0G2 
863 
864 
865 
866 
8G7 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 



SOUS-FROGRAMMES 



AFFICHACE DU MESSACE 



AFFICH STA ADR 

STY ADR+1 
LDY #$00 
LDA (ADR) , Y 
TAX - 

MESS TAY 

LDA (ADR) , Y 
CMP #"8" 



; LONG MESSAGE 



; CODE POUR 
R.C. 



VIDEO 



R.C. 



BEQ R.C. 
JSR VIDOUT 
DEX 
TXA 

BNE MESS 
RTS 

JSR CR 

BNE VIDEO+3 



;JMP 



SAISIE DES REPONSES 



SAISIE STA 
STY 
STX 
LDA 
JSR 
CPX 
BNE 
JMP 

SAISI2 CPX 
BCC 
DEC 
LSR 
LDA 
STA 
LDA 
CMP 
BNE 
DEC 
DEX 
BNE 
LDA 
BEQ 



BCL1 



ADR 

ADR+1 

FLAG 

#" " 

GETLIN 

#000 

SAISI2 

Ml-3 

FLAG 

ERREUR 

FLAG 

FLAG 

FLAG 

FLAG2 

IN-1, X 

!"V" 

*+4 

FLAG 

BCL1 
FLAG 
TRAITE 



; NB MIN OCTET 

; SAISIE 

;VERS MENU 
;SANS MOD IF 

; NR VTRGIJT.ES 

; VIRGULE ? 



TRATTEMENT DES ERREURS 



891 
822 
893 
894 
895 
896 
897 
898 
899 
900 
901 



LDA ADR+1 
PHA 

T.DA ADR 
PHA 

JSR BELL 
RTS 



;EMPIL NOUVEL 



; ADRESS RET 



TRA1TEMENX Dhi LA KfcfONSE 



889 ERREUR PLA 

890 PLA 



;DEPIL ANCIENN 
; ADRESS RETOUR 



902 TRAITE 


LDY 


•#500 




90 3 


T.DX 


#S01 




904 


LDA 


FLAG2 




VIRCULE A 


TESTER 




905 


BEQ 


12 




906 


LDA 


4", ■ 




<307 


STA 


SFF 




908 BCL6 


LDA 


IN,X 




90 9 


CMP 


SFF 


; 


910 


BNE 


Tl 




911 


DEX 




i 


912 


LDA 


TN,X 




913 


AND 


tSOF 


t 


914 


JMP 


STORE 




915 Tl 


INX 






916 


LDA 


IN,X 




917 


CMP 


SFF 


; 


918 


BEQ 


DEUX 




OCTETS A TRAITER 




919 


JSR 


OCT2 


% 


920 


STA 


Cl, f 




921 


DEX 






922 


DEX 






923 


LDA 


IN, X 




924 


CMP 


#$B0 




925 


BEQ 


HXT 




92 6 


CMP 


#$B1 




92 7 


BNE 


DEUX? 




92 8 


CLC 






92 9 


LDA 


Cl, Y 




930 


ADC 


#564 


i 


931 


INX 






932 


INX 






933 


JMP 


STORE 




954 DEUX 


DEX 






935 


LDA 


IN,X 




936 


JSR 


OCT2 




937 


JMP 


STORE 




938 DEUX? 


CMP 


#$B2 


} 


939 


BNE 


ERREUR 




94U 


INX 






941 


INX 






942 


LDA 


Cl, Y 




94 3 


CLC 






94 4 


ADC 


*$C8 




94 5 


BCS 


ERREUR 


t 


94 6 STORE 


BEQ 


ERREUR 


i 


94 7 


CMP 


NUMMAX 




948 


BEQ 


STORES 




949 


BCS 


ERREUR 


i 



;PAS DE 



; VIRGUL OU CR 



; NON : 3 



=0 ? 

OUI -> SUITE 
= 1 ? 



; AJOUTE 100 



;ENTREE>NUMMAX 
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950 


STORED 


STA 


C1,Y 




979 






ADC 


Cl, Y 






951 


NXT 


INX 






980 






INX 








952 




INX 






981 






RTS 








953 




INX 






982 














It C A 

954 




TNY 






f\ "i 

98 j 














955 




DEC 


FLAG2 


; SI 0, PLUS 


984 






CALCULS D'ADRESSES 














DE VIRGULE A 


985 






















TESTER 


986 














956 




BEQ 


T2 




987 


AD RE 5 S 


SEC 








957 




LDA 


KT.Afi? 




988 






SBC 


#$01 






958 




CMP 


#$FF 




98 9 






STA 


NUMFIC 


» 


N-l 


959 




BNE 


BCL6 




990 






LDA 


#$00 






960 




LDA 


#0 




991 






STA 


NUMFIC+1 






961 




STA 


FINFLG 


; DRAPEAU ZERO 


992 






LDX 


#$08 






962 




RTS 






993 






LDA 


NUMFIC 






963 


T2 


LDA 


#$8D 


; ON TESTE CR 


994 






STA 


C 






964 




STA 


$FF 




995 






LDA 


NUMFIC+1 






96b 




BNE 


BCL6 


; JMP 


996 


DIVID 


ASL 


C 




DIVISION 


966 


i 








997 






ROL 




* 


PAR 7 


967 










998 






CMP 


#$07 




DE 


968 


GCT2 


AND 


#$0F 


; A: A-5B0 


999 






BCC 


NEXT 


t 


NUMFIC 


969 




STA 


CI, Y 




1000 






SBC 


tf$07 






970 




DEX 






1001 






INC 


C 


t 


C->N0 SECT 


971 




LDA 


IN,X 




1002 


NEXT 


DEX 









— — 



Editeur Plein Ecran 




Le Pacha 



Listez vos programmes Basic en avant et en arriere. 
Modifiez, inserez, effacez des caracteres en plein 4cran 
sans relire les lignes. 
Recherchez toute chaine de caracteres. 
Choisissez vous-meme les codes de contrdle d'EPE. 
Modifiez EPE ; le fichier source est sur la disquette. 



150,00 F TTC franco 
(bon de commande page 74) 





972 AND #$0F ; A: A-SB0 1003 BNE DIVID 

973 STA IN,X 1004 STA F ; F->No TITRE 

974 ASL 1005 LDA /ORIG 

975 ASL ; A«4 1006 CLC 
97 fi CLC ; C=0 1007 ADC C 

977 ADC IN,X ; A«4+A 1008 STA A1H 

978 ASL ; A* 10 1009 STA A2II 
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1010 






STA 


DE3TH 




RE TOUR PUISQUE PAS DE RTS 


101 1 






LDA 


F 




1071 






JMP 


MENU 


1012 






ASL 






i nil 
1072 


OK 


RTS 




1013 






ASL 






i m i 

1U / J 










1014 






















1015 






ASL 
ASL 






1U 1 H 

1 f\ ~l c 

10 / o 










101 6 






ASL 






1 f\ ~I f 

1076 




*= TABLE IOB ET CARACTERISTIQUES = 


1017 






CLC 






1077 










1018 






ADC 


P 




1078 










1019 






ADC 


F 




io / y 










1020 






ADC 


F 




10 8U 


DOS 


LDA 


/ IOB 


1021 






ADC 


#0RIG+9 




10 01 

10m 






t nv 
LUi 


fflUB 


1022 






STA 


AIL 




10 OC 






to n 
JSR 


RWTS 


1023 






STA 


DESTL 




1083 






RTS 




1024 






CLC 






i n o - 

1U03 










1025 






ADC 


w$22 




i « n c 

10 ob 


IOD 


HEX 


0160 


102 6 






STA 


A2L 




i n f 

108b 


IBDRVN 


HEX 


01 


1027 






RTS 






lUo / 






HEX 


00 


102 a 












i r"i n n 
1088 




HEX 


11 


1029 












1089 


IBSECT 


HEX 


OF 


1030 






CONFIRMATION 


CHOIX 


10 90 






ADR 


CARACT 


1031 












10 91 


IBBUFP 


HEX 


0020 


1032 












1092 






HEX 


0000 


1033 


OK? 








10 93 


IBCMD 


HEX 


01 


1034 






LiUn 


- v - <ic l 1 




10 94 






HEX 


00006001 


1035 






t nv 

LtV I 


/ nc^o i i 




io yb 




r 






1036 






.TSB 


AFFTCH 




i a Q£ 

1U 3D 


CARACT 


HEX 


0001EFD8 


1037 












10 97 










1038 






t na 


TRITE? WW 




10 ya 










1039 






ORA 


B v J J 


; A=A+S3 


1099 


; POSIT IONNE LA FENETRE TEXTE 


104 






TOD 


V 1 UUU X 




1100 


f 






104 1 












I 1 1 


* 






1042 






T.DA 


H I I D O O J. i. 




11 oz 


WINDOW 


LDA 


#0 


104 3 






t nv 


/ 1". - jiit 










STA 


$22 


1U4 4 








AFFTCH 

tlii 1 lull 




1 1 

1104 






LDA 


#514 


1045 


i 










1105 






STA 


$23 


1 04 6 






T.DA 


Jl n if 
w 




1 t 06 






LDA 


CVANT 


1047 






1 Sk 

•j on 


K k Y 1 N 

r\c ill' 




1107 






STA 


CV 


104 8 






PHA 






1 1 no 
1108 






RTS 




1049 






JSR 


VIDOUT 




lino 
ii uy 










1050 






PLA 






1110 










1 05 1 






CMP 


#"0" 




1111 
1 I 1 I 








SOM OF CLOCHF. 


1052 






HKQ 


OK 




1119 
11 lc 










1053 






CMP 


#"o" 




I 1 1 1 

I I 1 J 


CLOCHE 


LDY 


#$C0 


1054 






BEO 


OK 




1 1 1 A 

1114 






JSR 


BELL2+3 


1055 






CMP 


#"1" 




1 1 ID 






LDA 


#320 


1056 






BNE 


LECT2? 




I 1 1 £ 

II ID 






LDY 


#$C0 


10b / 






AND 


#SFF 




111/ 






JSR 


BELL2 


1058 






STA 


IBDRVN 




I 1 1 O 

II Io 


BELL 


LDA 


#$20 


1059 






RTS 






1 1 1 Q 

1 1 1 y 






LDY 


#$C0 


1060 


LECT2? 


CMP 


#"2" 




1120 






JSR 


BELL2 


1061 






BNE 


*+8 




1121 






RTS 




1062 






AND 


#SFF 




1 122 


e 






10G3 






STA 


IBDRVN 




1123 


TEMPO 


LDX 


#0 


] 064 






RTS 






1 1 *3 A 
1 1 JL H 


BCLTEM 


DEX 




1065 






LDA 


#500 




line 

112 






BNE 


BCLTEM 


1066 






STA 


CH 




1 1 C 
1 12b 






RTS 




1067 






DEC 


CV 




112 / 


w 






1068 






JSR 


CLREOL 




1128 


LENGTH 


EQU 


*-BEGIN 


1069 






PLA 




;DEPILE 2 OCT 


1129 






PAU 




1070 






PLA 




;DE ADRESSE DE 


1130 






END 
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Deux utilitaires et un programme 
de gestion au sommaire de la Pom's 20 : 



Screen Maker, Vequivalent en a'ssembleur du programme de 
personnalisation dcs disquettes Mac paru dans la revue n° 16 : 
Transformer un document MacPaint en une image de 'Boot'. 

Des messages en boites, un utilitaire dont le source est 
abondamment commente, pour la gestion de boites a dialogue. 

Un programme de gestion de comptes bancaires en Basic 
Microsoft dote des facilites propres au Mac. 

80,00 F TTC franco, Bon dc command* page 74 




Disquette Macintosh 
14/15/16 

• Programmes Basic de* mimemi 
14. 15 et 16dePnm7 : 'FJileur*. 
'Mac-Apple J[\ *ParnI-ftaiir. , 1 et 

autres programmes "examples" poiir 
rUhutraliofi dec article* de cat 
numeros, 

• Polices 'Lob Angele*'. 'Cairo', 

l Mos Esley'. 'Hollywood'. 

'Manhattan', 
• programme Xocalizar'. 

• programme c Copie de disqueV 



ISOfit F TTC /mm 




Disquette Macintosh 

num^ro 19 



• Nouvelle version de MacWnte 
(4.5), version ""Disk based" qui 
penuei de manipuler de gros fichiers 
memc sur un Macintosh 128 Ko, 

• MacPaint 1 .5 qin ne perd plus la 

grille Ion des deplacemenls, 
Lucy, et S, accessories de bureau, 
am sources large men! commentes, 

• Programmes exemples bes aux 

articles. 



mfiC F TTC fruico 



CLP -<5P) 
CUU -(SPl 
—CopyBits 
RTS 

S**cilor» SUE: 
*r<r- r>7 r.T 



Pom's :\ 




Disquette Marin tosti] 

numdro 1 8 

♦ Version 4. 1 du Finder, plus rapide 

que U prec&ieute, 
• 'System Update' pour implanter 
les nouveaux Finder et System sur 
vos disquettes, 

• 'BR Demo' pour raffichage 

temporise cTccrins, 

• 'FonfDA Mover' pour manipuler 

polices et accesaoires, 

• Polices 'Times', 'Courier', 
'Symbol' et 'Helvetica', 

* Programmes de la revue. 

aOftQ P TTC frame* 



Disquette Macintosh^ 
numtiro 17 



• 'Catalogue sur Imprinumlc' pour 
obtcruV toutes lea informations sur 
vos fichiers : type, createur, index, 
position ct longueur dcs 

"reuources", ic6nc visible ou Don, 
DOfasBt protdg6 OU DOTJ. . - 
- Routines 'Bload' et 'Bsave' 
similaires a cellcs de I' Apple ][ 

(pour unc uuvegaroe et un 
chargemeat rapide des Schiers 
bmaires). 

90 fl4 P TTC frame* 
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Puisque nous ne 
vous aviez oesoin, nous 





Vmivn Calf 



Mouse Ha tat 



Une des plus grandes biblioth&ques de logicieii 
programmes compatibles avec l'Appie He : jeuJ 
gestiuii de base de doimfo, analyse financier. 



kJiuiyiyiyiyiuiyiuiymmly 



yyyyiyiyiyiyyioyuyliZJ 



i^i|i/i|i/i|i/i|i j|y|yy|ljyiyiyy 



uiyiyimyiyiyiyiuiyiyipt 

I- 1" "I- "I- up 



Un clavier 63 touches type AZERTY comprenant une accentuation complete et des 
caractfcres majuscules/minuscules intfignSs. 




Connecteur Connecteur 



Connecteur 



Connecteur 



pour la.souris. pur k modem. pour T\f couleur. pour k momteur video, de dhquette exteme. 



Connecteur pour le lecteur Comiecieur pour 



Voiciconim 
I'toan de 




tres facilen 

Si nous vo 
autantdem£ 
en un seul appr* 
etaitindispensard 




Seednn 5. A.R.L., Avenue de I'Oceanie - ZA, de Counatauf B.B 131, 919ii Ulb Cdex. 



savions pas de quoi 
vous avons tout donnS. 




I a*, <at-. ai 



Budget Familial 

> au monde ; 16.000 
I traitcmcnt dc tcxtc, 
planification. 



Apple Writer 



Soreellerte 



Apple Works 



Omnu II 



La Ounons ma/in 




Void 8 exemples de ce que vous pouvez affidier sur voire 
ecran.8 parmi 16,000 ! & vous de dGcouvrir ies autres. 

Lorsque vous aurez essays I'Appie nc vous ne regretterez pas 
notre generosity 




pr&ente I'Appie Dc reli£ a 
:efinition et a la souris. Ses connexions directes vous permettent d'uliliser 
loutes les fonctions dont vous avez besoin : imprimante, modern^ 
jvons donnfi aulant de place, aulaiil tie beaul& 
(128 Ko) t autant de possibility 
. est que cela 




Apple presente I'Appie He. 



L. 



I'actualite 
les bams d'essai 




les guides d 'achat 
le dossier 



les programmes 

QRDINATEUR 
INDIVIDUEL 





LA REFERENCE EN MICRO-INFORMATIQUE 




02 



A 




AVANi-FSZMEEE 

LoaciamiEas 

V-.i- 

UCSA130; 

AUBAJ(CDS5AJ 

GDI ; TRAHSrORMO 

VOTBE IBU D? UACIN70SH 

A ggyo ra ■ w pe tit 

BT7E58I AS70CHOI 



Sag" 

PJcpfiTffilTfe 

"SB?*, 




A L'ORDlriATEUR INDIVIDUEL, les redoefeurs, f«s canseil/ere tec/inique.*:, les correspondents a 
I'etranger, I'equipe eniiere se mobilise pour vous fournir rous /es mois une information 
complete ef de qualife. Le monde de fa micro bouge : L'0,1, teste pour vous fes micros ef 
logiciels qui apparaissenf sur le march*. II vous dit lesquels choisir et pourquoi Vous efes de/o 
equrpe ef vous souhaifez h'rer le maximum de voire machine ? Les speciaiisfes de L'QA. vous livrent 
conserfs, programmes inedifs ef astuces d' utilisation. Lisez chaque mois L'ORDtNATEUR INDIVIDUEL 



Gerard Michel 



Des messages 
en bottes 



Cette petite routine vous 
permettra d'afficher 
facilement les messages 
de vos programmes 
Basic sous la forme de ces 
"boites a dialogue" dont le 
Macintosh raffole. 



Le principe d'utilisation en est 
simple, puisque les seules 
donnees a fournir sont : 

• les dimensions de la borte, via 
I'indication du point 
superieur gauche ct du point 
interieiir droit du rectangle 
dans lequel elle s'inscrira 
(coordonnees de ces deux 
points par rapport au coin 
superieur gauche de la fenetre 
d'affichagedu Basic) ; 

• les dimensions du rectangle 
dans lcqucl apparaitra le tcxtc 
du message sur une ligne 
(coordonnees des deux points 
significatifs calculees cette fois 
par rapport au coin superieur 
gauche de la boite elle-meme) ; 

• les dimensions du "pseudo- 
bouton" de controle (coor- 
donnees toujours indiquees par 
rapport a la boite). Ce bouton 
eonliendra le message standard 
"Return S.V.P. " ; 

• l'adresse de la variable chaine 
de caractfcres ou est stocke le 
tcxtc du message. 



Mise en ceuvre 

Le code de la routine en 
langage-machine est implante 
dans un tableau de variables 
entieres (CO%(27<1) dans notre 
programme d'exemple). 
En fait, les premiers elements de 
ce tableau contiennent les 
pararneires de la boite, du 
rectangle de texte et du 
bouton-contrSle ; 

• CO%(0) a CO%(3) : coor- 
donnees des deux points 
definissant les dimensions de 
la boite ; 

• CO%(4)aCO%(7):idempour 
le rectangle de texte ; 

• CO%(8) & CO%(ll) : idem 
pour les dimensions du 
"bouton" ; 

• CO%(12) a CO%(19) : defini- 
tion du tcxtc contcnu dans le 
"bouton". 

La zone CO%(20) a CO%(190) 
sert quant & elle de tampon pour 
les routines systeme qui gerent 
les fenetres de dialogue et les 
evenements qui s'y produisent. 
Le code dc la routine commence 
done enCO%(191). 

Appel de la routine 

II resulte des instructions : 

A! VARPTR(V$) avec la 
nouvelle version du Basic 
Microsoft 



- ou CALL A! (VARPTR(V$)) 
avec Tancienne version 
o£i : 

• A! = VARPTR(CO%(191)) = 
adresse de debut du code de la 
routine ; 

• V$ = chaine de caracteres 
contenant le message a afficher 
(au sujet du mode de stockage 
des variables par le Basic el 
des descripteurs de chaines, 
reportez-vous aux cahiers Mac 
des precedents numeros de 
Pom's). 

La routine dessine la boite, y 
place le texte du message, dessine 
le bouton-controle et attend un 
ev£nement, le seul qui puisse 
amener la disparition de la boite et 
le retour au Basic etant la frappe 
de la touche "RETURN". 

Vous pouvez. bien sur modifier 
les variables utilisees et leur 
contenu, ainsi que les positions et 
dimensions des differents 
elements du "dialogue", avant 
chaque appel. afin de les adapter 
aux besoins. 

Les commenraires qui accom- 
pagnent la liste du programme 
source en assembleur vous 
permettront de suivre le 
deroulement des operations, et 
notamment le nom et le role des 
differentes routines systeme 
utilisees. 

(5 



Source de la routine 



CCQO 


.Trap 


FrcntWinrfr.w 


SA924 


Routines utilisees par 


0000 


.Trap 


_NewDialog 


SA97D 


le programme. 


0000 


.Trap 


_S©tPort 


SA871 


Sur un SI? Ko # la defi- 


0000 


.Trap 


NewControl 


SA954 


nition des 'Traps' peut 


0000 


.Trap 


_ToxtBox 


SA9CE 


etre remplacee par : 


0000 


.Trap 


ModalDialog 


3A99I 


INCLUDE MacTraps.D 


0000 


.Trap 


CloccDialog 


SA982 




0000 


.Trap 


SelectWindow 


5A91K 
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0000 


0064 


0064 


OOBE 


0190 


Rectangle 


DC 


100,100,190, 400 


; 


Bolt© I ^* 

Rectangle pour texte <^ | —i 

Rectangle pour cont r61e^^^___ 

X ^ 

contenu du controle ' 


0008 


OOOF 


0014 


0024 


one 


T2 


DC 


15,20,36,300 




0010 


003C 


0082 


0050 


0122 


TO 


DC 


60,130,80,290 


* 


0018 


OE 52 65 


74 75 


72 6E 


20 53 2E 


56 2E 50 


2E 20 00 














Return 


DC.B 


14, 'Return S .V.P. 


',0 ; 


0028 


xxxx 


xxxx 


xxxx 




Dstorage 


DCB 


SAA,0 


/ 


Tampon pour bolte a dialogue 


017C 


0000 








ItemHit 


DC 





3 


Stockage evenement dialogue 


Oil 'E 










Texte 


EQU 


D4 






017E 










Long 


EQU 


D3 






01 7E 




















01 7E 


4E56 


oooo 








LINK 


A6,#0 






018? 


226F, 


0008 








MOVE A. L 


8<A6) ,A1 


i 


adresse descripteur de chalne 


0186 


1629 


O001 








MOVE.B 


1 <A1> , Long 


i 


longueur de la chalne 


01 8 A 


0283 


0000 


OOFF 






ANDT.T. 


#S000000FF,Long 




convertie en un long-mot 


0190 


2829 


0001 








HOVE.L 


1 <A1) , Texte 






0194 


0284 


OOFF 


FFFF 






ANDI.L 


#S00FFPTFF, Texte 


; 


adresse de la chalne dans D4 


01 9A 










Dialogue 










01 9A 


42A7 










CLR.L 


-<SP) 






019C 


A924 










FrontWlndow 




poinLeui sui fenetre active 


01 9E 


265F 










MOVE.L 


(SP>+,A3 


I 


qui est stocke dans A3 


01 AO 


42 A7 










CLR.L 


-<SF) 






01A2 


407A 


FE84 








PEA 


Dstorage 






01AB 


487A 


FES 8 








PEA 


Rectangle 






01AA 


42A7 










CLR.L 


- (SPJ 


t 


pas de titre 


01AC 


1F3C 


FFFF 








MOVE . B 


#-l,-(SP> 


i 


-1 = 5FF = VRA1 => Visible 


01B0 


3F3C 


0001 








MOVE 


#1,-ISP> 


: 


type fenetre=bolte a dialogue 


01B4 


2F3C 


FFFF 


FFFF 






MOVE.L 


#-l,-(SP) 


i 


la tenetre vlent sur le dessus 


01 BA 


1F3C 


0000 








MOVE.B 


#0,-(SP) 


i 


= FAUX =■ pas de. "CoAuay" 


01 BE 


PF3C 


0000 


0000 






MOVE.L 


#0,-(SP) 


r 


les autres param. sont nuls 


Old 


2F3C 


0000 


0000 






MOVE . L 


#0,-<SP) 






01 CA 


A97D 










NewDialog 


t 


ouvre la bolte a dialogue 


01CC 


2E17 










MOVE . L. 


(SP),D7 


i 


met son pointeur dans D7 


01CE 


A873 










_SetPort 


t 


bolte = port d'entree/sortie 


01D0 


42 A/ 










CLR.L 


-<5P) 






01O2 


2F07 










MOVE.L 


D7,-(SP) 




precise utilisation bolte 


01D4 


487A 


FE3A 








PEA 


TO 






0W8 


487A 


FE3E 








PEA 


Return 






01 DC 


1F3C 


FFFF 








MOVE.B 


#-l,-<SP> 


i 


controle visible 


01E0 


2F3C 


0000 


0000 






MOVE.L 


#0,-(SP) 


t 


autres param. a 0, dont type 


01 E 6 


2F3C 


0000 


0000 






MOVE.L 


#0,-(SP) 


! 


controle (0=Return pour nous) 


01 EC 


2F3C 


0000 


0000 






MOVE . L 


#0,-(SP) 






01F2 


A954 










NewControl 


} 


ouvre le "bouton" controle 


01F4 


201F 










MOVE . L 


(CP) f ,D0 


9 


enleve son pointeur de la pile 


01F6 




















Olt'6 


2F04 










MOVE . L 


Texte, ~{SP) 






01F8 


2F03 










MOVE . L 


Long,-(SP) 






01 FA 


487A 


FEOC 








PEA 


T2 






01FE 


3F3C 


0001 








MOVE 


#1,-(SP) 


• 


justification = centre 


0202 


A9CE 










_TextBox 


S 


"dessine" texte dans rect . T2 


0204 










ACtente 










0204 


42A7 










CLR.L 


-(SP) 






0205 


487A 


FF74 








PEA 


ItemHit 






02 OA 


A991 










ModalDialog 


i 


attend un evenement dans bolte 


020C 


3 03 A 


FF6E 








MOVE 


ItemHit, DO 






0210 


0C40 


0001 








CMPI 


#1,D0 


t 


si code evenement = 1=^> Return 


0214 


66 EE 








BNE 


Actente 


i 


sinon, atLendre encore 


0216 


2F07 










MOVE.L 


D7,-(SP> 






0218 


A982 










CloseDialog 


i 


icCeime la bolte 


021A 


2F0B 










MOVE.L 


A3,-(SP) 






021C 


A91F 










_SelecL Window 


; 


renetre initiale en activite 


021E 


2F0B 










MOVE.L 


A3, - (SPJ 






0220 


A873 










SetPort 




et port d'entree/sortie 


0222 


4E5E 










UNLK 


A6 




retour au Basic 


022-4 


4E75 










RTS 
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Programme de 

demonstration 

DEFINT A-Z 
DIM CO(274) 

' Les deux premieres lignes donnent les parametres 
' de la boTte, du rectangle de texle et du rectangle de 
' controle, ainsi que le contenu de ce dernier 
DATA 100,100,190.400,15,20,36,300,60,130,80 
DATA 290 I &H0E52,&H6574,&H7572,&H6E20 
DATA &H532E,&H562E,&H502E f &H2000 
' Stockage de 'Tevenement dans la boite" 

DATA 

1 Code de la routine 

DATA &H4E56,0,&H226E I 8,&H1629,1 ( &H0283,0 
DATA &l IFF.&I 12829,1 ,&H0284,&HFF,&HFFFF 
DATA &H42A7,8HA924,&H265F,&H42A7,&H487A 
DATA &HFE84,&H487A I &HFE58,&H42A7,&H1F3C 
DATA &HFFFF,&H3F3C,1,&H2F3C,&HFFFF 
DATA &HFFFF,&H1F3C.O,&H2F3C,0,0 1 8H2F3C.O 
DATA 0,&HA97D,&H2E17,&HA873,&H42A7 
DATA &H2F07,&H487A,&HFE3A,&H487A 
DATA &HFE3E.&H1 F3C.&HFf-[-F,&H2F3C,Q,0 
DATA &H2F3C I O I O I &H2F3C,0 I I &HA954,&H201 F 
DATA &H2F04,&H2F03,&H'187A 1 &HFEOC ) &H3F3C 
DATA 1 .&HA9CE,&H42A7,&H487A,&HFF74 
DATA &HA991,&H3O3A,&HFF6E,&H0C40,1 
DATA &H66EE,&H2F07.&HA982,&H2F0B 1 &HA91 F 
DATA &H2F0B.&HA873.&H4E5E.&H4E75 
FOR i=0 TO 19;READ CO(i):NEXT 
FOR i=20 TO 189:CO(i)=0:NEXT 
FOR 1=190 TO 274:READ CO(i):NEXT:DE*191 
*DE=debut du code executable 
M1$= M Ceci est le premier message" 
M2$="Cecl est le deuxteme message" 
M3$-Xeci est le troisieme message" 
A!=VARPTR(CO(DE)):A! VARPTR(M1$) 



FOR i=0TO 10 \}\ 
PRINT Texte de remplissage / "; r-M 
PRINT "contrfile retour Basic ^"^v 
NEXT.PRINT 

PRINT "Entrez un texte ci-dessous S.V.P. 
INPUT z$:PRINT:PRINTz$ 
A!=VARPTR(CO(DE)):A! VARPTR(M2$) 
FOR i-0 TO 10:PRINT 'Texte de remplissage / 
PRINT "contrfile retour Basic 
NEXTPRINT 

PRINT "Entrez un texte ci-dessous S.V.P. 
INPUT z$:PRINT:PRINT 2$ 
A!=VARPTR(CO(DE)):A! VARPTR(M3$) 
FOR i=0 TO 10 

PRINT 'Texte de remplissage / 
PRINT "contrdle retour Basic 
NEXTPRINT 

PRINT "Entrez un texte ci-dessous S.V.P. 
INPUT z$:PRINT:PRINT z$ 
CO(0)=200:CO(1)=200:CO(2)=290:CO(3)=500 
Ml$="Encore un message en boite 
A!-VARPTR<CO(DE)):A! VARPTR(M1$):PRINT 
PRINT "Encore une grande phrase k suivre 
INPUT z$ 

DATA 30,20,1 1 ,500, 1 5,20,35,490 

FOR i=0 TO 7:READ CO(i):NEXT 

M2$="Ce dernier message marque la fin de notre test 

de presentation" 
A!=VARPTR(CO(DE)):A! VARPTR(M2$) 
CO(0)=250:CO(2)=320;CO(8)=45:CO(10)=65 
CLSrPRINT "Mars vous pouvez "; 

PRINT M en rentrer un vous-meme... 

INPUT M3$:AU=VARPTR(CO(DE)) 
A! VARPTR(M3$) 
PRINT:PRINT M3$ 

Fin: 

GOTO Fin 




Gerard Mkhtl 



Cet utilitaire vous permet de : 

i 



Imprimer I'ecran 40 ou 80 
colonnes par "]H" 



Nettoyer memoir e tres 
rapidement par "]F". 



Gerer des messages, la reponse 
etant contrdlee. 



y 



Gerer des masques 40 du SO colonnes. 
Ces ecrans, definis lors de la program- 
mation, s'affichent par "} A". 



Saisir toutes les variables d'un icran en 
une seule commande "]!" en cantrolant 
le type et la longueur. 



Mais aussi, ne saisir que I'une des 
variables affeciees cl un ecran, les 
qfficher, les effacer, etc. . . 



i 



9 



Tous les fichiers source sont surla disquette (exemple de demonstration dans Pom's 13) 



Disqucttc ct documentation : 150,00 TTC franco (bon de commande page 74) ^ 
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Gestion de 
comptes bancaires 



J-L Bazanegue 
C. Piard 




A fin d'eviter les 
longues seances de 
pointages, ratturages, 
surcharges & la 
reception des extraits de compte 
bancaire pour essayer de trouver 
un rapport entre le compte tenu 
chez soi et celui tenu par le 
banquier, voici un programme 
(presque) tout Basic qui peut 
rendre quelque service. 

Un mac 128 ou 512 Ko et la 
version decimale du Basic 
Microsoft version 2.00 sont 
necessaires, le lecteur externe 
etant facultatif . 

Les principes 

Ce programme peut gerer 
plusieurs groupes compte 
banque/carte de credit. Dans les 
notes qui suivent, nous ne 
considererons qu'un groupe. 

11 est possible d'enregistrer les 
operations suivantes : 

• Depenses par cheque ou 
prel&vement, 

• Recettes sur le compte banque, 

• Depenses par carte de credit, 

• Virements carte de credit, 

• Pointage. 

Chaque mois, le compte bancaire 
est debite des depenses par carte 
bleue presentees par les 
teneflciaires avant le 25 du mois 
precedent. Cette operation 
diminue la derte carte de credit et 
diminue ravoir du compte : e'est 
cette operation que nous 
nommons ici Virement carte de 
credit'. 

Le pointage consiste a annoter les 
operations enregistrees k la 
banque et chez soi. Ce pointage 
permet au programme lors de 



Tedition des demises operations 
du compte de calculer le 

rapprochement, e'est h dire les 
soldes qui, theoriquement, 
apparaissent sur l'extrait de 
compte, tant sous la rubrique 
compte principal que sous carte 
de credit. 

Accessoirement, le programme 
calcule une ventilation des 
depenses par type : Maison, 
loisirs, vetements, vacances, 
transport... Ces types de 
depenses sont editables : & chaque 

groupe de comptes est attachee 

une ventilation que vous definirez 
au moment de la creation. Vous 
ne pourrez plus revenir dessus 
apr£s validation. 

Ce programme, congu pour un 
besoin particulier, ne gere pas les 
prelevements automatiques, ne 
permet pas l'etablissement de 
budget ou autre ; sa structure ne 
deyrait toutefois pas poser de 
problfcme pour une person- 
nalisation eventuelle. 

Mode (Temploi 

Premiere operation, ini- 
tialisation d'un groupe compte/ 
carte : e'est 1'option NOUVEAU 
du mem FICHIER. 
La date demandee devra etre 
posterieure k 1984, le nom du 
fichier est quelconque, peut 8tre 
sous la forme BNCI 007665. Le 
solde banque est positif ou 
negatif, e'est selon ! La dette 
carte bleue est par convention 
forc^ment positive. Ces sommes 
devront rester dans les limites 
- raisonnables - de la double 
precision. Les noms des dix 
rubriques de ventilation des 
d6penses seront choisies de fagon 
definitive h ce moment. II est 



preferable de mettre en numero 1 
la rubrique la plus frequente : elle 
vous est proposee par defaut lors 
des saisies. Toutes les zones dtant 
completees, la validation par 
'OK' vous est proposee. 
Le fichier est alors crc£ en 
quelques instants sur le disque 
avec le type 'COMP' et en 
enregistrement 1 la 'reprise de 
solde'. 

Par la suite, pour travaillcr sur le 
fichier. il faudra choisir UUVRIR 
dans le menu FICHIER : seuls 
les types *COMP' s'afficheront. 



Saisic est le premier item du 
menu OPTION. Pour ne pas s'y 
perdre, la derni&re operation est 
rappelee en haut de l'ecran (avec 
la notation des comptables : Debit 
correspond a une recette. Credit a 
unc depensc). Les soldes 
n'apparaissent pas en mode 
saisie, le bouton pointage reste 
invalids. Pour enregistrer 
effectivement votre operation, 
vous aurez au minimum indique 
la date, le premier libelle et le 
montant. La date sera sous la 
forme de six ou huit caract&res 
avec un separateur quelconque : 
130985, 13/09/85, 13-09-85 sont 
des formes acceptees. 

Consultation, deuxifcme item 
d'OPTION rend actifs les 
boutons au bas de l'ecran. 

Pointage, accessible depuis 
consultation, vous propose exclu- 
sivement les operations non 
pointees ; celles-ci sont reperees 
dans un fichier special. Avant 
validation, vous pouvez modifier 
les libelles et le numero 
d 'operation. 

Im primer est accessible dans 
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lc menu FICIUER. Par defaut 
Timpression se fait entre la plus 
ancienne operation non enre- 
gistree a la banque et la demi&re 

ligne sai&ie. Au bas de l'etat sont 
indiques les soldes theoriqucs k la 
banque puis la ventilation des 
ligncs dc depenscs imprimccs. II 



est a rcmarqucr que le libellc 2 nc 
figure pas sur l'etat. 

Les limitations de ce programme 
sont les suivantes : 

• 1000 operations par an e'est a 
dire environ 100 Ko 
(modifiable ligne Ncomptes), 



• 100 operations non 
pointees (modifiahle 
ligne Npoint), 

• 900 millions de 
francs, pour rever. . . 



3 
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Programme 

Comptes 

DEFINT A-Z 

D1MC1(7)JV(14),EF$(14),R(14,3),TAB 

L(1 00), VENT#< 1 0):U$="######M#.##" 
DATA &h4E56,0.&h42A7.&h3F2E,&h8, 

&hA9B9,&h2057,&h2E00,&hA851 ,&h4 

E5E,&h4£75 
DATA 1 r Rchlere,1 ,Nouveau,1 .Ouvrir.O , 

Fermer.O, Imprimer, 1 ,Qu itter 
'Sup fenetres 

DATA 0,Options,2,Saisie,1,Consultatio 

n.1 .pointage 
DATA &h42A7,&hA924,&h2ElF,&h6706 

,&h2F07,&hA&I6,&h60F2,&h4E75 
'Sup Menus 

DATA &h4E56,&hOOOO,&h3F2E,&h0008 

,&hA936,&hA937,&h4E5E,&h4E75 
'coord onn 60s 
Coo: 

DATA 8,8,11 2,288.1 20,8.272,288 
DATA Date, Norn de fichier.Montant B 

anque.DO Carte bleue 
Coo2: 

DATA 72,344,280,488,168,8,208,328 
DATA 216,144.232,328,240,144,256,32 
8 

C00S: 

DATA 72,73,146,88,224,73,328,88,72, 
97,328,1 1 2,72,1 21 ,328,1 36,72,1 45,1 7 
6,160 

FOR i=0TO 1 0:READ C2(I):NEXT 
FOR l=0 TO 5:READ N.C$:MENU 4 

,I,N,C$:NEXT 
FOR l=0 TO 3:READ N,C$:MENU 5, 

l,N,C$:NE)CT 
GOSUB S1:A! 

GOSUB S1:FCR l=0 TO 4:A! I:NEX 
T 

ON MENU GOSUB MeOrMENU ON 
B1: 

GOTO B1 

MeO: 

IF MENU(0)=5 THEN Me1 ELSE O 
N MENU(1) GOSUB Me01.Me02,M 
e03,Me04,MeO5:RETURN 

MeOI: 

WINDOW 1 „(1 04,24)-(400,336),-3:TE 
XTFONT 0:TEXTSIZE 12;TEXTM 
ODE 1:FOR l=0 TO 3:C1 (l)=&HAA5 
5:NEXT:PENPAT VARPTR(C1 (0)) 

RESTORE Coo:GOSUB S1:FOR i=0 
TO 4 STEP 4:FRAMERECT VA 
RPTR(C1(I)):NEXT 

N=0:FOR l=3? TO 104 STEP 24:N = 
N+1:EDIT FIELD N," t (17G,M5)-(28 



i l):R(N,0)=176:R(N,1)=l-15:R{N,2>=28 

0:R(N r 3)=l 
READ C$:MOVETO 16,I:PRINT CS;: 

QETPEN VARPTR(C1(0)):LINE(C1( 

1).I)-(168.I):NEXT 
FOR U32 TO 176 STEP 144:FOR 

J=153 TO 265 STEP 24:N=N+»:ED 

IT FIELD N,",(U)-{I + 104,J4-15):R(N 

,0)=I:R(N,1)=J:R(N,2)=l + 104:Fl(N,3)-J-t- 

15 

MOVETO i 22,J + 12:PRINT USING"# 

#-;N-4:NEXT:NEXT 
MOVETO 16.136:PRINT 'Noms de r 

ubrique pour ventilation":MOVETO 1 

6,144:LINETO 280,144 
BUTTON 1,0,"OK",(64,280)-(128,304),I 

:BUTTON 2,1/Annuler",(168,280)-(23 

2,304),1:EDIT FIELD 1 :EF=1 
FOR i=1 TO 14:TV(I)=0:NEXT:ON D 

IALOG GOSUB Di:DI ALOG ON 
RETURN 
Me02: 

F$=nLES$(1 l 'COMP"):IF f$-" THEN 
MENU ;R£TURN 

OPEN'R',1 ,F$,1 1 2:F$=LEFT$(F$,LEN( 
F$)-2)+\P - :OPEN"R",2,F$,2:F$=LEFT 
$(F$,LEN(F$)-2) + \V:OPEN"R\3.F$, 
25 

Me022: 

FIELD 1 ,6 AS zDA$,1 1 AS zNum$,32 
AS 2Lit>1$,32 AS ZLit>2$,8 AS ZMQ 

n$,8 AS zSol$,8 AS zCB$,2 AS zC 

ode$,2 AS zPoin$,2 AS zVent$ 
FIELD 2.2 AS zNume$ 
FIELD 3,25 AS zN$ 
GET 2,1 :Num=CVI(zNume$) 
WINDOW 1 ,.(8.24)-(504.336).3:TEXT 

FONT 0:TEXTSIZE 12:TEXTMOD 

E 1 

LINE(8,8)-(488 ( 64)„B;FOR U0 TO 3; 
CI (l)=£HAA55:NEXT:PENPAT VAR 
PTR(C1(0)):MOVETO 16,32:LINETO 
480,32:RESTORE Coo2:FOR i=0 
TO 7:READ C1(I):NEXT:FR AMER 
ECT VARPTR(C1 (0)):FRAMERECT 
VARPTR(C1(4J) 

FOR 1=0 TO 7:READ c1(l):NEXT:F 
RAMERECT VARPTR(C I (0)):FRA 
MERECT VARPTR<C1(4)) 

MOVETO 353,87:PRI NT-Ventilation": 
MOVETO 352,96:LINETO 480.96:F 
OR l-O TO 9:BUTTON U1,1,",(353 
,109+16*l)-(367,121-f16"l),3:GET 3,l+ 
1:MOVETO 376,120 + I'16;PRINT 2 
N$:EFS(l + 1)=zN$;NEXT:BUTTON 1, 
2 

GOSUB Aff:PENMODE 1 1:C1(0)-144 
:C 1 (1 )=240;C1 (2)=1 62:C1 (3)=304:C1 (4) 
^216:C1 (5)-8:C1 (6)-258:C1 (7)-1 20:P 



AINTRECT VARPTR(d(0)):PAINT 
RECT V ARPTR(C1(4)) 
BUTTON 1 1 ,0/\(309,1 45)-(323,1 60).3: 
n=11;FOR i=133 TO 309 STEP 17 
6-.FOR j=172TO 188 STEP 16:n=n 
+1 ;BUTTON n,V\(l,J)-(M4,J+14),3 
:NEXT:NEXT:BUTTON 13,2 
GET 1,Num+1 :GOSUB RAPPEL 
GOSUB EField:BUTTON 16,0,-Premie 
r\(8.264)-(1 1 2.280);B UTTON 1 7,G,"1 
en arriere".(120,264)-(224,28O):BU 
TTON 1 8.0. , 'Pr6c6d8nf,(232,264)-(33 
6,280) 

BUTTON 19,0, "Dernler B ,(8,288)-(1 12,30 
4):BUTTON 20,0.'1Q en avanf,(120 
,288)-(224,304):BUTTON 21,0,"Suiva 
nf,(232,288)-(336,304);BUTTON 22, 
0,'Validor",(344,288)-(488,304) 

DM=1 :MENU:MENU 4,0,1:MENU 4,1, 
0:MENU 4,2,0:FOR i-3 TO 5:MEN 
U 4,I,1:NEXT:MENU 5,0,1;MENU 5 
.3.0 

EFS=1:EF=11:RESTORE CooS:FOR I 
=1 TO 5;READ R(l,0),R(l ,1 ),R(» f 2) f R 
(l,3):NEXT:FOR i=1 TO 3:TV(I)=0:N 
EXT:L3ET zVent$=MKI$(1);LSET 
zPoin$=MKI$(0):LSET zCode$=MKI 
5(2):LSET zLib2$-"":LSET zNum$=' 
-:ON DIALOG GOSUB DSalsle:DI 
ALOG ON:RETURM 

Me03: 

GOSUB Me03b 
CLOSE:RETURN 

Me03b: 

WINDOW CLOSE l:GOSUB MMenu 
;GOSUB FQ;RETURN 

MMenu: 

MENU 4,1,1:MENU 4,2,1:MENU 4,3, 
0:MENU 4,4,0:MENU 4,5,1 :MENU 
5,0,0:MENU 5,1,2:MENU 5,2,1:ME 
NU 5.3.0:RETURN 

FQ: 

IF DM=3 THEN GOSUB MJPoint 

RETURN 

Me04: 

DIALOG OFF:GET 2,1 :NDL=CVI(zN 
ume$)+1 :GET 2,2:NNP=CVI(zNume$) 
:GET 2,NNP + 2:NDL1=CVI(zNumo$>: 
GET 2,3:NPL=CVI(zNume$):NPL1=N 
PL 

IF NNP=0 THEN NPL=NDL-10 

IFNPL<1 THEN NPL=1 

GOSUB Me03b:WINDOW 1^(172.127 
)-(348,215),-3:TEXTFONT 0:MOVE 
TO 16,24:PRINT"Prerniere lignoVM 
OVETO 16,48:PRINT*Derniere ligne 

EDIT FIELD 1 .STR$(NPL),(120.12)-( 
160.27),1,3 
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EDIT FIELD 2 ( STR$(NDL-1),(120,36) 

-(1 60,51), 1,3 
EF=1 :BUTTON 1 .1 ."OK'.O 6.64)-(82,79 
):BUTTON 2,1 ,"Annuler",{94,64)-(1 60 
,79):ON DIALOG GOSUB Dlmp:D 
IALOG ON 
Dlmp; 

N=DIALOG{0):IF N=1 THEN Blmp E 
LSE IF N-2 THEN Simp ELSE I 
F N=b" OR N=7 THEN RTImp ELS 
E RETURN 

Blmp: 

IF DIALOG(1)=2 THEN WINDOW 
CLOSE 1:GOSUB Me03:CLOSE:R 
ETURN 

xNPL-VAL(EDIT$(1)):xNDL=VAL(EDI 
T$(2)) 

IF xNPL>xNDL OR xNPL<0 OR xNDL 
>NDL-1 THEN BEEP:EDIT FIELD 
1 :RETURN 
NPL=xNPL. 1 :NDL-xNDL+1 :IF NPL>NPL 
1+1 OR NDL<NDL1 + I THEN drap=0 
ELSE drap=-1 
GOTO Impras 
Simp: 

IF DIALOG(2)-EF THEN RETURN 
ELSE EF=DIALOG(2):GOTO Dlmp 
S 

RTImp: 

IF EF=2 THEN EF=1 ELSE ef=2 
DlmpS: 

EDIT FIELD EF'.RETURN 

Me05: 

GOSUB FQ:CLOSE:SYSTEM 
Mel: 

ON MENU(1) GOSUB Me11,Me12,M 

©1 3:RETURN 
Me11: 

LINE(9,9)-(487,30),30,BF:LINE(9,34)-( 

487,63),30.BF 
GET 2,1 :Num=CVI(zNume$):GET 1 ,N 

um+1:GOSUB rappel 

PENMODE 8:C1 (0)=144:C1 (1 )=240:C1 ( 
2)=162:C1 (3)=304:C1 (4)=216:C1 (5)=8; 
C1(6)=258:C1(7)=120:PENMODE 11: 
PAINTRECT VARPTR(c1(0)):PAIN 
TRECT VARPTR(C1(4)) 

LINE(1 45,21 7)-{326,230).30 ( BF:LINE(1 
45,241 )-(326,254),30,BF 

RESTORE coo2:FOR i=0 TO 7:REA 
D d (l):NEXT:FOR i=0 TO 7:REA 
D d(l):NEXT:PENMODE 8:FRAM 
ERECT VARPTR(C1 (0)):FR AMERE 
CT YARPTR(C1(4)):PENMODE 11 

FOR i-15 TO 22:BUTTON l,0:NEXT 
:FOR i=1 TO 10:BUTTON l,1:NEX 
T: BUTTON 1.2:BUTTON 11.0:FOR 
l=12TO 15:BUTTON l,1:NEXT:BU 
TTON 13,2 

DM«1:MENU:MENU 5,1,2:MENU 5,2, 
1:MENU 5,3,0;GO5UB Efield 

EFS=1:EF=11:FOR 1=1 TO 3:TV(I)=0: 
NEXT:LSET zVent$=MKI$(1):LSET 
zPoin$=MKI$(0):LSET zCode$=MK 
l$(2):LSET zLib2$=":LSET 2Num$= 
":ON DIALOG GOSUB DSaisie:D 
IALOG ONtRETURN 

Me1 2: 

DIALOG OFF:IF DM-2 THEN RETU 
RN ELSE IF DM=3 GOTO Me1 23 



Me12S; 

DM=2:C1 (0)=9:C1 (1 )=9;C 1 (2)=30:C1 (3)=4 
87:C1 (4)=34:C1 (5)=9:C1 (6)=63:C1 (7)=4 
87:PENMODE 11:PAINTRECT VA 
RPTR(C1(0)):PAINTRECT VARPT 
R(C1(4)) 

FOR 1=1 TO 15:BUTTON l,1:NEXT: 
FOR 1=1 TO 5;EDIT FIELD CLOS 
E l:NEXT 

LINE(223,72)-(329,89)„B:LINE(71 t 96)- 
(329,1 1 3)„B:LINE{71 ,1 20)-(329,1 37},, 
B:LINE(71,144)-(177,161),,B:LINE(7 

I. 72)-(147,89)„B 

RESTORE Coo2:FOR i=0 TO 7:RE 
AD C1(l):NEXT:FOR (=0 TO 7:RE 
AD C1(l):NEXT:PENMODE 14:FR 
AMERECT VARPTR(C1(0)):FRAM 
ERECT VARPTR(C1(4)) 

MOVETO 16,228:PRINT"Solde Banqu 
e":MOVETO 16.252:PRINT"D0 Cart 
e bleue":MOVETO 242,1 59:PRINT" 
Polniage 

BUTTON 22,0:FOR 1=16 TO 18:BUT 
TON l,1:NEXT:MENU 5,1,1:MENU 5 
,2,2:MENU 5.3.1 :GET 2.1 :Num=CVI 
(zNume$)+1 :NumF-Num:GET 2 r 2:No 
mbre=CVI(zNume$):GOSUB AffCons 
:ON DIALOG GOSUB consult:DI 
ALOG ON:RETURN 

Me123: 

GOSUB MJPointrGOSUB vide:GOT 

O M812S 
MJPoint: 

DM=2:FOR 1=1 TO Nombro:LSET zN 
um9$=MKI$(TABL(l)-1):PUT2,l+2:NE 
XT 

LSET zNume$=MKI$(Nonibre):PUT 2, 
2:RETURN 

Me13: 

IF Nombre=0 THEN MENU 5,3,0:RE 

TURN 
DM=3:DIALOG OFF 
GOSUB Vide 

FOR 1=16 TO 21:BUTTON l,1;NEXT 
:FOR i=16 TO 17:BUTTON l.0:BU 
TTON U3,0:NEXT 

MENU;FOR l=0 TO 2:MENU 5,1+1,1: 
NEXT 

FOR 1=1 TO Nombro;GET 2,I+2:TAB 

L(l)=CVI(zNume$) + 1:NEXT:ll=1 
GOSUB AffPoint 

BUTTON 18,0:IF nombre=1 THEN B 

UTTON 21,0 
ON DIALOG GOSUB Pointage:DIA 

LOG ON:RETURN 

Pointage: 

N=DIALOG(0):IF N=1 THEN PoinBou 
ton ELSE IF N=2 THEN PoinSour 
ELSE PointRT 

RETURN 

PoinBouton; 

N=DIALOG(1):IF N=11 THEN BPoint 
ELSE IF N-18 THEN prec ELSE 
IF N<21 THEN RETURN 

IF N=21 THEN Suiv ELSE Valida 

BPoint: 

IF BUTTON(11)=1 THEN BUTTON 

II. 2.BUTTON 22,1 ELSE BUTTO 
N 11,1:BUTTON 22,0 

RETURN 



prec: 

BUTTON 21,1:IUII-1:IF IM THEN 

BUTTON 18,0 
GOSUB vide:GOSUB AffPointrRETU 

RN 

Suiv: 

BUTTON 10,1:11*11+1 IF lUNombreT 

HEN BUTTON 21,0 
GOSUB vid©:GOSUB AffPoint.RETU 

RN 

Valide: 

LSET zLib1$=EDIT$(2):LSET zLib2$ 
=EDIT$(3):LSET zNum$=EDIT$(1): 
LSET zPoin$=MKftfc(-1):PUT 1.TAB 
L(ll) 

Nombre=Nombre-1 

IF nombre=0 THEN GOSUB vid9:F0 
R M TO 22:BUTTON l f 0:NEXT:E 
DIT FIELD 3,",(72,121)-(328,136):E 
DIT FIELD 2,'\ (72.97)- (328.1 12):E 
DIT FIELD 1,"",(224,73)-(328,88):R 
ETURN 

FOR l=ll TO nombre:SWAP TABL(I). 

TABL(I+1):NEXT 
IF IUNombre+1 THEN BUTTON 21.0 

IF 11=1 THEN BUTTON 18,0 
GOSUB vide:GOSUB AffPointrRETU 
RN 

PoinSour: 

IF DIALOG(2)-EF THEN RETURN 

ELSE NEF=DIALOG(2) 
GOTO DPoint 
PointRT: 

IF EF=3 THEN NEF=1 ELSE NEF=E 

F+1 
DPoint: 

EF$(EF+10)=EDIT$(EF) 
IF EF>1 THEN Point2 
Polntlb: 

IF WIDTH(EF$(11))>96 THEN EF$(11 
)=LEFT$(EF$(1 1 ),LEN(EF$<1 1 ))-1 ):G 
OTO Pointlb ELSE EDIT FIELD 
1 ,EF$(1 1 ),<224,73)-(329,88):EF=N EF:E 
DIT FIELD EF:RETURN 

Point2: 

IF WIDTH(EF$(EF-t-1 0))>240 THEN E 
F$(EF+10)=LEFT$(EF$(EF + 10).LEN( 
EF$(EF+10))-1);GOTO Point2 ELSE 
EDIT FIELD EF,EF$(EF+1 0), (72,97 
+ (24*(EF-2)))-(328,112+(24 # (EF-2))):EF 
= NEF:EDIT FIELD EF.RETURN 

Vide: 

LINE(72,145)-(176,160),30 f BF:LINE(72 

,73)-(146,88),30,BF 
LINE(1 45,21 7)-(326,230),30,BF:LINE(1 

45,241 )-(326,254),30,BF 
FOR 1=1 TO 15:BUTTON l,1:NEXT 
RETURN 
AffPoint: 

GET1,TABL(II):EF=1 

EDIT FIELD 3,zLib2$.(72.121 )-(328,1 

36);ef$(13)-zUb2$ 
EDIT FIELD 2,zLlb1$,(72,97)-(328,1 1 

2):8f$(12)=zLib1$ 
EDIT FIELD 1,zNum$,(224,73)-(328,8 

8):ef$(11)=zNurn$ 
MOVETO 80,85:PRFNT LEFT$(zDAS 

,2)+7"+M!D$(zDA$,3 ( 2)+T+RIGHT$( 

ZDA$,2) 
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MOVETO 80,157:PRINT USING U$; 

CVD(zMon$) 
MOVETO 220,229:PRINT USING U 

$;CVD(zSol$):MOVETO 220,253:PR 

INT USING U$;CVD(2CB$) 
code-CVI{zCode$);BUTTON code+11, 

2:IF CVI(zPoinS) THEN BUTTON 

11,2 

IF CVI(zVent$) THEN BUTTON CVI 

(zVant$),2 
BUTTON 22,0 
RETURN 



Consult: 

N=DIALOG(0):N=DIALOG(1 ):IF N<16 

THEN RETURN 
ON (N-15) GOTO C1,C10M,CP,CD,C1 

OP.CS 

C1: 

NurnF=1 ;GOTO SConsult 
C10M: 

IF (NumF-10)<1 THEN NumF=1 ELS 

E NumF=NumF-10 
GOTO SConsult 
CP: 

NumF=NumF-1:GOTO SConsult 
CD: 

NumF=Num;GOTO SConsult 
C10P: 

IF (NumF+10)>Num THEN NumF=Num 

ELSE NumF=NumF+10 
GOTO SConsult 

CS: 

NumF-NumF+1 :GOTO SConsult 
SConsult: 

FOR 1=1 TO 15:BUTTON l,1;NEXT 

LINE(225.75)-(327.87),30,BF:LINE(73, 
98)-C327 l 111),30,BF:LINE(73,122)-(32 
7,135),30 I BF:LINE(73,146)-(175,159), 
30,BF:LINE(73,74)-(145,87),30,BF 

LINE(1 45,21 7)-(326,230),30,BF;LINE(1 
45,241 )-(326.254),30.BF 

IF num-1 THEN FOR 1-16 TO 21 :B 
UTTON l,0:NEXT:GOTO SSConsul 
t 

FOR 3=16 TO 21:BUTTON l,1:NEXT 
IFnumF=1 THEN FOR 1=16 TO 18: 

BUTTON i,0:NEXT 
IF numF = num THEN FOR I = 19 

TO 21:BUTTON l,0:NEXT 
IF (numF-10)<1 THEN BUTTON 17,0 
IF(numF + 10)>num THEN BUTTON 20 

,0 

S SConsult: 

GOSUB AffCons;RETURN 

EField: 

EDIT FIELD 2.",(224,73)-(328,88):E 
DIT FIELD 3," l (72,e7)-(328,112):E 
DIT FIELD 4,",(72,121)-(328,136):E 
DIT FIELD 5 i ",(72 l 145)-(176,160) 

EDIT FIELD 1 ( LEFT$(zDA$,2)+ V%M 
ID$(zDA$.3,2)+r+RIGHT$(zDA$,2),( 
72,73)-<146,88):RETURN 



VentOff; 

C1(0)=1 12:C1 (1 )=376:C1(2)=274:C1 (3)=4 
87:PAINTRECT VAR PTR (d {0)):F 



OR l«1 TO 10:BUTTON l ( 0:NEXT: 
LSET zVent$=MKI$(0):RETURN 



Aff: 

MOVETO 9,87:PRINT'Date':MOVET 
O 168,87;PRINT"Numero\MOVETO 
9,111:PRINrLib. 1":MOVETO 9,1 
35:PRINT"Lib. 2VMOVETO 9,159:P 
RINT'MontantVMOVETO 16.228:PR 
INT'Solde Banque':MOVETO 16,25 
2:PRINT'Du Carte bleua 

MOVETO 16,183:PRINT ,, Recette Ban 
que":MOVETO 16,1 99:PRINT'Depe 
nse Banque";MOVETO 165,183:PRI 
NT"Depen3e Carte BIeuo':MOVETO 
165,i99:PRINT"Virement Carte Ble 

ueVMOVETO 242,1 59:PRINT"Point 
age 
RETURN 

Rappel: 

N=0:FOR 1-1 TO LEN(F$):IF MID$( 

F$,l,1)=":" THEN N=l 
NEXT:IF n THEN F$=RIGHT$(F$.LE 

N(F$)-N) 

MOVETO 16,24:PRINT "Fichier — L 
EFT$(F$,LEN(F$)-2) - Rappel de 
I'enregistrement precedent :" Num 

MOVETO 16.44:PRINT LEFT$(zDA$ 
,2) + r+MID$(zDA$,3 f 2)+7N-RIGHT${ 
zDAS.2) 

MOVETO 93,44:PRINT 'N' ■ zNum$: 
MOVETO 2I4,44:PRINT zLib1$ 

N=CVI(zCode$):V1#=0:V2#=0:V3#=0:O 
N N-1 GOTO SN2,SN3,SN4 

V1#=CVD(zMon$):GOTO SNO 

SN2: 

V2#=CVD(zMon$):GOTO SNO 
SN3: 

V3#=CVD(zMon$):GOTO SNO 
SN4: 

V2#=CVD(zMon$):V3#=-CVD(zMon$) 
SNO: 

MOVETO 16 ( 59:PRINT USING'Debit 
Bq :#######*#.## Credit Bq :## 
#######.## CB :#########.##';V 
1#,V2#,V3# 

RETURN 



N=DIALOG(0);IF N=1 THEN Bouton 
ELSE IF N=2 THEN Dsouris ELS 
E IF N=6 OR N=7 THEN TabRetur 
n ELSE RETURN 

Bouton: 

IF DIALOG(1)-1 THEN BoutonOK 
MENU:WINDOW CLOSE 1 :RETUR 
N 

BoutonOK: 

MENU:DIALOG OFF:A!=VARPTR(C 
2(0)):AI 4:OPEN*RM,EF$(2),25:NA 
ME EF$(2) AS EF$(2) + '.V 

FIELD 1,25 AS zN$ 

FOR 1=1 TO 10:LSET zN$=EF${k4): 
PUT 1,I:NEXT 

CLOSE 

OPEN"RM,EF$(2),112:NAME EF$(2) 

AS EF$(2)-*.\D\"COMP' 
FIELD 1,6 AS zDA$,11 AS zNum$,3 



2 AS zLib1$,32 AS zLlb2$,8 AS Z 
Mon$,8 AS zSol$,8 AS zCB$,2 AS 

zCode$,2 AS zPoin$,2 AS zVent$ r~=T 

Ncomptes: I 

FOR 1=1 TO 1001:PUT#1,l:NEXT^w ' - 
LSET zDA$=JJ$ + MM$+AA$:LSET zN S ~^^\ 
um$=":LSET zLib1$="Repriae de sol 



um$=":LSET zLib1$="Repria 

des":LSETzLib25=" 
V#-VAL(ef$(3)):IF v#<0 THEN V#=A 

BS(v#):n=2 ELSE n=1 
LSET zMon$=MKD$(V#):LSET zSol$ 

=MKD$(VAL(EF$(3))) 
LSET zCB$=MKD$<VAL(EF$(4))):LSE 

TzCoda$-MKI$(N):LSET zPoin$-M 

KI${-1):LSET zVent$=MK!$(0) 
PUT 1,1 
CLOSE 

OPEN"R\1.EF$(2).2:NAME ef$<2) AS 

ef$(2)+\P* 
FIELD 1,2 AS zP$:LSET zP$=MKI$ 

(0):PUT 1.1 

Npoirrt: 

FOR i=2 TO 102:PUT 1.I:NEXT:CL 
OSE 

WINDOW CLOSE 1 :INITCURSOR: 
DIALOG ON:RETURN 

Dsouris: 

IF DIALOG(2)^EF THEN RETURN 
ELSE NEF=DIALOG(2):GOTO Tral 
t 

TabRetum: 

IF EF=14 THEN NEF=1 ELSE NEF = 

EF+1 
Trait: 

IF EF>4 THEN Ventil ELSE ON EF- 

1 GOTO Nom,MB,CB 
EF$(1)-EDIT$(1):IF LEN(EF$(1))=0 T 

HEN TV(1)=0:GOTO Dsuivant ELS 

E GOSUB Vdato 
IF DE THEN TV(1 )=0:GOTO Erreur 

ELSE TV(1 )=-i :GOTO Dsuivant 
Nom: 

EF$(2)=EDIT$(2):IF LEN(EF$(2))=0 T 
HEN TV(2)-0:GOTO Dsuivant ELS 
E GOSUB VLongP 

TV(2)=- 1:GOTO Dsuivant 

MB: 

EF$(3)=EDIT$(3):IF LEN(EF$(3))=0 T 
HEN TV(3)=0:GOTO Dsuivant ELS 
E GOSUB WalN 

IF DE THEN TV(3)=0:GOTO Erreur 
ELSE TV(3)=-1 :GOTO Dsuivant 

CB' 

EF$(4)=EDIT$(4):IF LEN(EF$(4))=0 T 

HEN TV(4)=0:GOTO Dsuivant ELS 

E GOSUB VValP 
IF DE THEN TV(4)=0:GOTO Erreur 

ELSE TV(4)=-1:GOTO Dsuivant 
Ventil: 

EF$(EF)=EDIT$(EF):IF LEN(EF$(EF»= 
OTHEN TV(EF)=0:GOTO Dsuivant 
ELSE GOSUB VLongP 

TV(EF)— 1:GOTO Dsuivant 

Dsuivant: 

EDIT FIELD EF ( EF$(EF),(R(EF,0),R<E 
F.1))-(R(EF,2),R(EF,3)):EF=NEF;EDIT 
FIELD EF 
DE=-1:FOR 1=1 TO 14:IF TV(l)=0 TH 
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EN DE-0 

NEXT:IF DE THEN IF BUTTON(l)= 

THEN BUTTON 1,1:RETURN 
IF DE=0 TH EN IF BUTTON(1)=1 T 

HEN BUTTON 1.0 
RETURN 

Erreur: 

BEEP;BEEP:EDIT FIELD EF,EF$(E 
F).(R(EF.0).R(EF.1))-(R(EF.2).R(EF.3)): 
RETURN 

Me05: 

MENU RESET:END 

Vdato: 

DE=0:IF LEN(EF$(EF))=6 THEN N=-1 
ELSE IF LEN(EF$(EF))=8 THEN 
N=0 ELSE VdateEr 

JJ$=LEFT${EF$(EF),2):IF VAL(JJ$)>3 

1 THEN VdateEr 

IF N THEN MM$=MID$(EF$(EF),3,2) 
ELSE MM$^MID$(EF$(EF),4,2) 

IF VAL(MM$)>12 THEN VdateEr 

AA$=RIGHT$(EF$(EF).2):IFVAL(AA$) 
<S5 THEN VdateEr 

EF5(EF)=JJ$+T+MM$+T+AA$:RETUR 
N 

VdateEr: 
DE=-1:RETURN 

VLongP: 

L-WIDTH(EF$(EF)):IFL<96 THEN R 
ETURN ELSE EF$(EF)=RIGHT$(E 
F$(EF).LEN(EF$(EF»-1):GOTO VLon 
9P 

VVaIN; 

DN=-l:GOTO VVal 

VValP: 

DN=0 

VVal: 

N=0:L=LEN(EF$(EF));FOR 1=1 TO L:C 
$=MID$(EF$(EF).1.1):IF C$="?" OR 
C$-Y OR C$«";" OR C$-V THEN 
MID$(EF$(EF),I,1)=V:N=I 

NEXT:IF N THEN IF L>(N + 2) THEN 
EF$(EF)=LEFT$(EF$(EF),N+2) 

N#«VAL<EF$<EF)):N#=INT(Nn00+.5)/1 
00:EF$(EF)=STR$(N#):IF LEFT$(EF 
$(EF).1)="THEN EF$(EF)=RIGHT 
$(EF$(EF),LEN(EF$(EF))-1) 

IF N=0 OR N=L THEN EF$(EF)=EF$( 
EF)+\0ff* 

L=LEN(EF$(EF)):IF (N+2)-L=1 THEN 

EF$(EF)=EF$(EF)+ B B 
IF DN THEN IF N#>999999999.99# 

OR Nff<-99999999.99#THEN DE=-1 

:R ETURN ELSE DE-0:RETURN 
IF N#>999999999.99* OR N#<0 THE 

N DE*-1:RETURN ELSE DE=0:RE 

TURN 

S1: 

FOR l=0 TO 7:R EAD C1 (l):N EXT:A! 
=VARPTR{C1 (0)):RETURN 

DSaisie: 

N-DIALOG{0):IF N=1 THEN SBouton 
ELSE IF N=2 THEN SDsouris EL 



SE IF N=6 OR N=7 THEN STabRe 
turn ELSE RETURN 
SBouton: 

N=DIALOG(1):IF N<11 THEN VontllS 
ELSE IF N=22 THEN ValidS 

FOR 1-12 TO 15:BUTTON l,1:NEXT 
:BUTTON N,2:NN=BUTTON(1) 

IF NN=0 THEN IF N-13 OR N=14T 
HEN FOR i-0 TO 9:BUTTON 1+1 , 
1 :MOVETO 376,120+I'16:PRINT E 
F$(U1):NEXT:BUTTON 1,2:GOTO 
SBoutonS 

IF N=12 OR N=15 THEN GOSUB V 

entOff 
SBoutonS: 

Code=N-11 :GOTO SDSouris2 
VentilS: 

FOR U1 TO 10:BUTTON l,1:NEXT: 
BUTTON N,2:Ventil=N:GOTO SDSo 
uris2 

ValidS: 

IF BUTTON(13)-2 THEN code-2 

IF BUTTON<1>=2 THEN LSET zVen 
t$-MKl$(1) 

IF BUTTON(1)=1 THEN LSET zVen 
t$=MKI$(Ventil) ELSE IF BUTTON 
(1 )=0 THEN LSET zVent$=MKI$(0) 

CBleue#=CVD(zCB$):Soide#=CVD(zSol 
$):LSET zCode$-MKI$(code):LSET 
zMon$=MKD$(VAL(montant$)):ON c 
ode-1 GOTO code2,code3,code4 

LSET zSol$=MKD$<VAL(Montant$) + S 
olde#):GOTO EnrS 

code2: 

LSET zSol$=MKD$<Solde#-VAL(Moni 

ant$)):GOTO EnrS 
code3; 

LSET zCBS=MKD$(CB!eue#+VAL(Mon 

tant$)):GOTO EnrS 
code4: 

LSET zCB$-MKD$(CBIouo#-VAL(Mon 
tant$)):LSET zSol$=MKD$(Soldeff-V 
AL(Montant$)) 

EnrS; 

GET 2.2:NEnrNP=CVI(zNume$) 
LSET zNuma$=MKI$(Nurm1);PUT 2, 
1 

LSET zNume$*MKI$(NEnrNP+1):PUT 

2,2 

LSET zNume$=MKI$(Nurn + 1):PUT 2. 

NEnrNP+3 
PUT 1,Num+2 

GET 2,1 :Num=CVI(zNume$) :FOR l=0 

TO 9:BUTTON 1 + 1.1 
MOVETO 376,120+I°16:PRINT ef$(l+ 

1):NEXT:BUTTON 1,2 
BUTTON 22,0:LINE(9.9)-(487.30),30, 

BF:LINE(9,34) (487.63),30.BF 
BUTTON 12,1:BUTT0N 13,2:BUTTO 

N U,1:BUTTON 15,1 
GET 1,Num+1:GOSUB rappel 
GOSUB EField:EFS=1:EF=11:FOR 1=1 
TO 3:TV(I)=0:NEXT:LSET zLlb2$= 
"VLSET zNum$=":LSET zVent$=M 
KI$(1):LSET zPoin$=MKI$(0):LSET 
zCode$=MKI$(2):RETURN 

SDSouris2: 



NEFS=DIALOG(2):DV=0:GOTO TraitS 
SDSouris: 

IF DIALOG(2)=EFS THEN RETURN 
ELSE NEFS=DIALOG(2):DV^-1:G 

OTO TraitS 
STabRetum: 

IF EFS=5 THEN NEFS=1 ELSE NEF 

S=EFS+1 
TraitS: 

ON EFS-1 GOTO Num5,Lib1S,Lib2S, 
MontantS 

EF$(EF)=EDIT$(1):IF LEN(ef$(EF))-0 
THEN TV(1)=0:GOTO DsuivantS:EL 
SE GOSUB Vdate 

IF DE THEN TV(1)=0;GOTO ErreurS 
ELSE TV(1)=-1:LSET zDA$=LEFT 
$(EF$(EF),2)+MID$(EF$(EF),4,2)+RI 
GHTS(EF$(EF),2):GOTO DsuivantS 

NumS: 

EF$(EF)=EDIT$(2) 
NumSb: 

IFLEN(EF$(EF))>11 THEN EF$(EF)= 
LEFT$(EF$(EF),LEN(EF$(EF))-1 ):GO 
TO NumSb ELSE LSET zNum$=EF 
$(EF):GOTO DsuivantS 

Lib1 S: 

EF$(EF)=EDIT$(3):IF LEN(EF$(EF))=0 
THEN TV(2)=0:GOTO DsuivantS 

TV(2)«-1 
Lib1 Sb: 

IFWIDTH(EF${EF))>240 THEN EF$( 
EF)=LEFT$(EF$(EF),LEN(EF$(EF»-1) 
:GOTO LiblSb ELSE LSET zLibl 
$=EF$(EF):GOTO DsuivantS 

Lib2S: 

EF$(EF)-EDIT$(4) 

Llb2Sb: 

IFWIDTH(EF$(FF))>240 THEN EF$(E 
F)=LEFT$(EF$(EF),LEN(EF$(EF))-1): 
GOTO Lib2Sb ELSE LSET zUD2$=E 
F$(EF):GOTO DsuivantS 

MontantS: 

EF$(EF)=EDIT$(5):IF LEN(EF$(EF))=0 
THEN TV(3)=0:GOTO DsuivantS 
ELSE GOSUB VValP 
IF DE THEN TV(3)=0:GOTO ErteurS 
ELSE TV(3)=-1 :Montant$=EF$(EF): 
GOTO DsuivantS 

DsuivantS: 

EDIT FIELD EFS,EF$(EF),(R(EFS,0), 
R(EFS t 1))-(R(EFS,2),R(EFS,3)):IF DV 
THEN EFS=NEFS:EDIT FIELD EF 

S 

GOSUB VerifS:RETURN 
ErreurS: 

BEEP:BEEP:EDIT FIELD EFS,EF$( 
EFJ.f^EFS.OJ.RfEFS.IH^EFS.^.Rf 
EFS,3)):RETURN 

VerifS: 

DE=-1:F0R 1=1 T0 3:IF TV(l)=0TH 
EN DE=0 

NEXT:IF DE THEN IF BUTTON(22) 
=0 THEN BUTTON 22.1:RETURN 

IF DE=0 THEN IF BUTTON{22)-1 T 
HEN BUTTON 22,0 

RETURN 
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Fichiers Options 



Fichier BNCI 007665 - Rappel de I'enregistrement precedent : 6 

19/08785 W 8248253 Editions MEU Recueil Po m v s ^2 

Debit Bq : 0,00 Credit Bq : 0.00 CB : 1 40.00 



22/08/85 



Numero 



6443997 



Uentilation 



Photo Shop 



Bague Macro 



766.00 



i Recette Banque Q Depense Carte Bleue O! 
j Depense Banque ® Direment Carte Bleue Ol 



i)u Carte bUtiw 



O Loyer 
O Alimentation 
O Uetements 
O Loisirs 
O Uacances 
O Impots 
O Ordinateur 
(•) Photographie 
O Moto^ 
O Diuers 






■1 




] [ Hi en mmi ] [ 


Suimmt 




Llalider k i 



Impres: 

WIDWLPT1:\136 

Page-0:TD#=0:TC#=0:TCB#=0:SBT#-0;S 
CT#=0 

FOR 1=1 TO 10:VENT#(i)=0:NEXT 
GOSUB entete 
FOR l=NPL TO NDL 
GET 1,1 

MT#=CVD(zMon$):Soff=CVD(zSol$):CB 

#=CVD(zCB$) :Co^CVI (zCode$) 
Li=Li+1 

IF Li>55 THEN GOSUB totaux:LPR 

INT CHR$(12);:GOSUB entete 
GOSUB Ligne 
NEXT 

GOSUB Totaux 

IF NOT DRAP THEN LPRINT "Editi 

on insuffisante pour calcul du rappr 

ochement":GOTO ici 
LPRINT'SOLDES THEORIQUES SUR 

EXT RAIT BANCAIRE : 
LPRINT TAB(30);USING U$;SBT# + S 

o#;:LPRINT" en compte principal 
LPRINT TAB (30);USIN G U$;SCT#+C 

B#;:LPRINT" en carte bleue 
ici; 

LPRINT CHR$(12> 
LPRINT "VENTILATION DES DEPENS 
ES : 

FOR 1=1 TO 10:LPRINT EF$(i);TAB( 
26);USING U$;VENTff(i):NEXT:LPR 
INT CHR$(12) 

WINDOW CLOSE 1:GOSUB Me03: 
CLOSE:RETURN 

entete: 

Page=Page+1:Li=0 
LPRINT CHR$(27)CHR$(81 ) 
LPRINT"Extrait cornpte banque " LE 
PT$(F$.LEN(F$)-2) ligne "Npl" A ■ 



Ndl\ page "Page 
FOR i=0TO 126:LPRINT---;; NEX 

TrLPRINT 
LPRINT "| I" SPC(13) 

SPC(33) T;: FOR M TO 5:LPRI 

NT SPC(12)'!";:NEXT:LPRfNT" I" 
LPRINT"! DATE ! NUMERO 
! LIBELLE 1" SPC(23);"I RECETT 

E I DEPENSE ! SOLDE 

! MOUVEMENT ! SOLDE IP! 
LPRINT ■! ! OPERATION 

I" SPC(33)-| BANQU£ ! BAN 

QUE ! BANQUE I CARTE BL 

EUEi CARTE BLEUE! ! 
FOR l=0TO 126:LPRINT *-';: NEX 

T:LPRINT 
RETURN 
Totaux: 

FOR i=0TO 126:LPRINT "-■;: NEX 
TrLPRINT 

LPRINT '! Totaux";:LPRINT TAB (60) 
"J";:LPRINT USING U$;TD#;:LPRI 
NT"!";:LPRINT USING U$;TC#;:LP 
RINTT;:LPRINT USING U$;So#;: 
LPRINT'!" USING U$:TCB#::LPRI 
NT"!";:LPRINT USING U$;CB#;:LP 
RINT"! I" 

FOR i=0 TO 126:LPRINT NEX 

T:LPRINT 
RETURN 

Ligne: 

LPRINT"! " LEFT$(zDA$,2)V MID$( 
zDA$,3.2)"/' RlGHT$(zDA$.2)" ! "zN 
um$;TAB(26);M i zLIB1$;TAB(60);"! B ; 

!FCo=1 THEN TD#=TD#+MT#:LPRI 
NT USING U$;MT#; 

LPRINT TAB(73);T; 

IF Co=2 OR Co=4 THEN LPRINT U 
SING U$;MT#; 

LPRINT TAB(86) "!";:LPRINT USIN 



G U$;So#;:LPRINT TAB{99) "!"; 
IF Co=3 THEN TCB#=TCB# + MT#:LPR 

INT USING U$;MT#: 
IF CO=4 THEN LPRINT USING U$ 

;-MT#; 

LPRINT TAB (112) "!";:LPRINT USI 

NG U$;GBff;:LPRINTT; 
IF CVI(zPoin$) THEN LPRINT"*"; 
LPRINT TAB(127) "! 
IF Co=2 THEN TCff=TCff+MT# 
IF Co=4 THEN TC#=TC# + MT#:TCB#-T 

CB#-MT# 

IF Co=2 OR Co=3 THEN VENT#(CV 
l(zVent$))-VENT#(CVI(zVent$))i-MT# 
IF CVI(zPoin$) THEN suite 
IFco=1 THEN SBT#=SBT#-MT# 
IFco=2THEN SBT#=SBT#-fMT# 
IF co=3 THEN SCT#=SCT#-MT# 
IFco=4THEN SBT#=SBT#-hMT#;SCT# 

=SCT#+MT# 
suite: 
RETURN 
AffCons: 

GET 1 ,NumF:MOVETO 80,85:PRINT 
LEFT$(zDA$,2)^-V + MID${zDAS.3.2) 
+7" + RIGHT$(zDA$,2) 

MOVETO 232,85:PRINTzNum$:MO 
VETO 80.109:PRINT zLib1$:MOVE 
TO 80,133;PRINT zLib2$:MOVETO 
80,157:PRINT USING U$;CVD(zM 
on$) 

MOVETO 220,229;PRINT USING U 
$;CVD(zSol$):MOVETO 220,253:PR 
INT USING U$;CVD(zCB$) 

code=CVI(zCode$):BUTTON code+1 1, 
2:IF CVI(zPoin$) THEN BUTTON 
11,2 

IFCVI(zVent$) THEN BUTTON CV 

l(zVent$),2 
RETURN 
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Alexandre Avrane 

Alio ProDOS ? : 



rroisteine volet de noire 
decouverte de ProDOS 
(voir "ProDOS k 
l'essai" -Pom's 12- et 
"Pot-pourri ProDOS" -Pom's 
16-), nous allons aborder la 
programmation en assembleur 
sous ProDOS. Nous verrons les 
protocoled de co-residence de 
plusieurs programmes et 
l'adjonction de nouvelles 
commandes k ProDOS avec deux 
applications pratiques : un 
TDUMP de visualisation du 
contenu des fichiers, et un INIT 
de formattage des disquettes 
evitant d'utiliser rutilitaire Filer. 

Sous DOS 3.3, Apple n'avait que 
trfis pcu documcnte les 
conventions d'appel en 
assembleur : les methodes 
d'acc&s au File Manager n'etaient 
meme pas effleurees par le 
manuel du DOS ! Resultats : les 
nombreux aventuriers qui 
s'ctaicnt hasardcs a explorer le 
systeme avaient chacun emprunte 
une approche differente, el le 
DOS s'est vite retrouve truffe de 

"patches" et de modifications 

internes. Une telle situation a vite 



decourage les programmeurs de 
Cupertino d'envisager le 
ddveloppement d'un DOS 3.4 car 
celui-ci, ayant necessite un 
re-assemblage et done la 
modification de la plupart des 
adresses des routines, aurait 
rendu incompatible un tr&s grand 
nombre de programmes. 

Fini le 

"bidouillage" ! 

Une philosophic differente existe 
pour ProDOS : le "Technical 
Reference Manual" d6crit en 
detail les points d'entree de 
ProIX)S et du Basic.System mais 
repose sur un double enga- 
gement : celui des programmeurs 
de n'utiliser que les points 
d'entree officiels, de ne pas 
appeler directement les routines 
internes, ni occuper les places 
libres en memoire, celui d' Apple 
de conserver la compatibilite de 
ses points d'entree avec les 
versions futures de ProDOS. 

Plusieurs versions de ProDOS 
ont deja ete commercialisees : 1.0 



en janvier 1984, 1.0.1 en juillet 
1984; on parle d'une version 
prochaine gerant le futur modem 
cl'AppIe,.. Attention: la version 
"B.4" que poss&de certains 
lecteurs de Pom's, distribute aux 
developpeurs de logiciels & partir 
de janvier 1983, n'est pas 
officiellement supportde par 
Apple (les fichiers ProDOS et 
Basic.System, appelles Pro. 
Kernel et Das.Interp, ont depuis 
ete corriges et reassembles). 

Geslion de la 
memoire 

Jusqu'tl present, les programmes 
assembleurs etaient generalement 
places en page 3 ($300-$3CF) ou 
juste au-dessous des trois buffers 
du DOS en $9600. D'ou une 
joyeuse cacophonie lorsqu'il 
s'agissait de faire resider 
plusieurs d'entre eux en 
memoire, ou d'utiliser simul 
tanement plus de trois fichiers ! 

Cette anarchie est revolue sous 
ProDOS les programmes 
devront pouvoir co-exister en 



Pgm IN1T.CODEO.S 

(Assembleur Big Mac) 

1 LST OTT 

2 • 
3 

4 

5 ■ ■ 

* • PRCOOS INIT • 

7 ■ 



10 >••..•.••.••..-.-.•..••■•■•■•.....••■*• 

11 • Copyright IC) 1M5 Aleaandrc Avranv - 

12 • 

13 ■ Hodlfle: 27/04/85 

14 * C;ti , ■ 
IB> • . 
1* • Assembleur i Dip; Hoc 

IB 

19 

Zl • Initialisation d'une aisguette triouvs 
mi'i utlliser le Filet 

25 • 

2* » syntaxe: 



27 
28 
29 



31 
32 
33 



INI" /<nom volurae> [.s <slot>l 
!.D <drive>| 

Environnement: ProDOS * Bsslc Syites 

Carapatlbillte; Pio0O5 B.4, 1.0, 1.0.1 et 
su Wants 

Integration: commande externe Baalc 
Systen 

Organisation Interne: 

1- Tntrl a] i BMlI (g*r* par OIBUUDJ 
-eharcha plaea dispenlbla an PAN 

- modulaa tulviAti 

-ohtl na eda axterna * ProDOI 

2- Contrfilaur da comunde 

-v*r 1 f - la tynCM. da la ooarunde 
-•lBon arr ou anvoi vara a.utra ode 

3- Foraactaur phyalqwa 
-fanutte piit.a en It seeteurs 
-oontrfile le (oraattage 

i Format tour loglque 

■■ l«s bluwa au futiaaL 

loglquc PtwOoa 



chain* avec le fichier 
■ des blocs du boot ProDOS (eorrespondant 

a la version 
• desiree) par le programme INIT. LINK, 

puis avec CHDLINK. 



■ Source (Big Mac) : INIT. CODECS 

• Objet: INIT.COOTQ 

• Link: INIT.LIHK 

• Module executable: INIT. CODE 



Constantes d' assemblage 



GAP! 
GAP-2 



255 

$ 



GAP3 = ?S 

BFTPY - 16 

a • S30 

* Adreaacs utiluieeii 



4a - — - 



Cc *r assemblage dolt. a 'tra 



FTP. 
HIHEM 



Tl FMtirtW - 



S73 
SBE0C 



debut de piste 
entre chanos 
adresse t donneea 
(5-101 

n-ntre secteurs 
C6-28)par defaut 
nb essais pour 

un* pi mtm 



vectcur teaporair 



50 



Pom's n° 20 



appels en assembleur 



memoire r quel que soit le nombre 
de fichiers ouvcrts. A cet effet, ils 
disposent d'une carte des pages 
RAM libres (situee en 
$BF58-$BF6F), et doivent suivre 
le protocole suivant ; 
° les programmes courts et 
temporaires (charges puis 
executes qu'une seule fois) se 
placent cn $300 ; 
° les programmes temporaires ne 
faisant pas d'appels a ProDOS 
doivent examiner la carte de la 
memoire et se placer sur les 
plus hautes pages disponibles ; 
° en regie generale, les 
programmes devront egalement 
marquer sur cette carte les 
pages 6502 qu'ils s'allouent, 
afin de ne pas etre ecrases par 
les programmes suivants ou 
par ProDOS lorsqu'il gfcre ses 
buffers. 

La carte de la memoire conticnt 
24 octets, soit 192 bits ; chacun 
represente le status d'une des 
pages $00 a $BF, le bit est £ 1 si 
la page est libre. Les pages $00 h 
$02 sont toujours marquees 
occupe, ainsi que les pages $9 A a 



$BF lorsque le Basic.System est 
present. 

A l'origine, une routine 
GETBUFR, situee en $BEF5, 
devait pouvoir etre appelee pour 
obtenir le numcro de la premifere 
page disponible. Celle-ci a 
dispame des versions actuelles de 
ProDOS, probablement pour des 
raisons de place. 

Heureusement, son fonction- 
nement a pu etre reconstitue et 
vous la trouverez au sein du 
programme CMDLOAD qui sera 
detaille par la suite. 

En entree de cette routine, 
raccumulateur doit contenir le 
nombre de pages de $100 octets 
desirds et le registre Y doit fetre 
non nul si le programme est 
permanent et doit done marquer 
les pages comme definitivement 
occupees. 

En sortie, la retenue (carry) est I 
1 s'il n'existe pas de groupe de 
pages consecutives libre ; sinon 
1'accumulateur contient le numero 
dc la premiere page du groupe. 

Auparavant, nous devons parler 

protocole : 



Mise en place cTun 

programme 

assembleur 

Plusieurs etapes permettent 
d'intcgrer un programme dans 
Tenvironnemnt existant. Comme 
elles sont rclativement 
complexes, elles ont ete reprises 
en majorite dans le programme 
CMDLOAD qui initialise les 
commandes additionnelles (egale- 
ment appelees externes) de 
ProDOS; 

1) se charger en $2000. Cette 
adresse est supposee libre car les 
programmes assembleurs doivent 
etre charges en tout debut, avant 
l'execution d'un programme 
Applesoft par exemple ; 

2) d'abord verifier lesystSme 

d'exploitation: si celui-ci n'est 
pas ProDOS, autant eviter de 
poursuivre car on court a la 
catastrophe ; 

3) verifier qu'il n'existe pas de 
fichiers ouverts car ProDOS gere 
la carte de la memoire pour ses 



72 A1AUUK = 
7 3 XLEM - 
14 XCNUM 

/b pairs 

76 FBITS 

77 8I_5LOT - 

78 BI_DMVE = 

79 VPATH1 

SO BADCALL - 



01 MLI 
92 DATE TTHE 

83 SYSERB 

84 DATE 

19 

86 WAIT 
8T RTS 



5BE30 
5 BE 3 2 
SBE53 
SBE34 



SBE61 
5BE62 
SBE6C 
SBEBB 



= S3F0O 



SBF06 



5BFQF 
SBF90 



SFCAB 
SFF58 



89 ' Macro-instructions: 



931 
94 



STA 5C08D.X 
CMP SC0BC.X 
«< 



aorcie coe extern 
long cde externe 
n' de cde ProDOS 
mts d'suco-ri- 
satlon par&mecns 

bits des para- 
metres erouves 
slot commando 
drive d'une cde 
vecteur nora volum 
convertit erreurs 

KLl-»BasiC .'V'src- 

entree HII vera 
ProDOS Kernel 
appel A routine 
de l'horloge 
code erreur HLI 
date/beure sur 4 
octet 9 

attence 

contiemt un RTS 



;ecriture 
physique aur disK 
ix - slot x S10J 



9b DELAI 2 

96 

97 

98 DELAI 3 
99 
100 

101 DELAI 4 

102 

103 

104 

105 DELAI < 

106 

107 

108 

109 

110 DELAI"? 

in 

112 
113 

114 DELAI 1 2 

115 

116 

117 

118 



MAC 
NOP 
«< 
MAC 

JMP »+3 

<« 

MAC 

>» DELAI 2 
>» DELAI 2 
«< 
KAC 

»> DLLAI2 

>» DEXAI2 

»> DEXAI2 

«< 

MAC 

PHA 

PLA 

«< 

MAC 

jsr Rrs 

«< 



119 

120 
121 
122 
123 



;deiai 2 cycles 



,-delai 3 eyejea 



;deUi 4 cycles 



;delai 6 cycles 



;delai 7 cycles 



;delai 12 cycles 



(CMDLOAD de $2000 
A S20FF) 



1 - INITIALISEDR 



125 
126 

127 
121 
129 
130 
131 
132 
133 
134 
135 
136 
137 

138 
139 
140 
141 
142 
143 
144 

145 
146 
147 
148 



DalL (JebuLei iui una Cronclccc de pega 
»02 



2.1 - verifie que 1« uuibmiiiJb oxictne 
BSL la X10LIC 



CLD 



.-necessalxe 



« Convention! ae nnx awec ckdluau: 

lda #>FrN*S100 
LDA #>UJNG 
V_OLDCHD LDA RTS 

■ Conventions dm link avec IWIT.LINK: 
VC_BOOT2 LDA BCOT_BL2 convention pour 

linx avec blocs 0/1 Prows 



2 - CONTROLEUR DE COMMANDS 



LDA VPATH1 pointeur vers la 

corrraande actuelle 

STA PTR 
LOA VPATH1+1 
5TA PTR* 2 
(si leccure en 5200. on devralt eviter 
•a caracteres bior.es) 



J 
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propres besoins en buffer. Si, 
d'autre part, un programme 
Applesoft a dej 2i cree des 
variables chaines de caracteres, 
celles-ci seront inutilisables et il 
est preferable d'effectuer un 
CLEAR aprfes l'initialisation ; 

4) appeler la routine ci-deasus de 
reservation en memoire, 

5) se reloger sui les pages 
allouees precedemment. Si votre 
programme est directement 
relogeable (pas de JSR, JMP, 
LDA ou STX internes par 
exemple), ilvous suffit d'appclcr 
la routine MOVE du moniteur. 
Sinon, pas de piobleme, une 
routine de CMDLOAD vous 
m&chera le travail en respectant le 
protocole suivant : 

° la partic & reloger debute en 
$2100 

o l'octet haut de l'adresse de fin 
de votre programme, incre- 
rnente de 1, se trouve en $2102 

o l'octet haut de la longueur dc 
votre programme sc trouve en 
S21U4 

o l'adresse de la cominande 
externe ProDOS precedente est 
en $2106. $2107. Votre 
programme devra y allcr si la 
commande ProDOS n'est pas 
pour lui 



o 


la partie codes 


instructions 




6502 est separee de la partie 


US 








150 


101 


#1 




151 




(PTR) . I 


obLIenl un cuicl 


152 


CM> 


UUHHANL)~1, 


I e'est "INIT" I 


153 


3K£ 


NO_CMD 




154 


I NY 






155 


CPT 


MM 




156 


BCC 


COMPAR 




157 








158 


■ 2.2 - Demaftde A ProBOS 


d'vxaniner la 


159 
160 


suite de la 


coranande 




DE Y 






161 


DEY 






162 


STT 


XLEN 


stocXe long; - 1 


163 


LDA 






164 


STA 


5YSERR 


initialise code 
erreur ML I 


165 


STA 


XCNUH 


lndique ede exter 


166 


LDA 


IIO0000O01 




167 


STA 


PBITS 


nam de Jlchier 
(volunel autorise 


168 


LDA 


noooooioo 




169 


5TA 


PBITS+l 


a lot C drive 
auto rises 


170 








r-t 


LDA 


PRINTER** 1 


detourne le 
vecteur erreur 
(pas de preflxe) 


17? 


STA 


5AVF._fcRB 




173 


LOA 






174 


STA 






175 


V_SaiTE LDA 


SUITE 


vecteur de re C our 
apres evinen 


1 76 


I.DA 


V StJTTF.+l 





donnees (constantes +- 
variables) par un BKK ($00). 
La partie code sera 
re-assemblee, la partie donnees 
sera simplement recopiee. 

Attention : des instructions du 

type: 

PARTLE1 LDA #<PART1E2 (avec 
PARTLE2 quelque 
part dans votre 
programme) 
LDY #>PARTLE2 

sont & banir car non relogeables, 
et devront etre remplacees par : 

PARTLEl LDA PART1E2 

LDA PARTLE1 + 1 
LDY PARTIE 1+2 

Une sixi&me etape est necessaire 
si vous souhaitez raccorder votre 
programme & ProDOS comme 
une commande externe: d'abord 
sauvegarder l'adresse de la 
commande externe precedente (en 
SBE06.BE07), puis placer la 
votre & la place. Bien sGr, la 
mSme chose doit s'appliquer si 
vous vous raccordez ailleurs, & 
l'Ampersand (&) par exemple : 
vous devez toujours supposer 
que vous etes le deuxieme 
programme a yous connecter, ct 
sauver l'ancien vecteur en 
consequence. 

Nous supposerons desormais que 
votre programme est une 



177 




STA 


XTADDR 


:r.d;qu? k PcoDCS 
o£ rcvenir apria 


17 8 




STA 


rfUNTEWI' 1 


indiquc oo 
revenlr a I crreu 


175 




LOA 


v_aoi te-e 




180 




STA 


XTADDR* 1 




181 




STA 


PRINT ERR' 2 




182 




CLC 




;lndiyue A PtuK 
que e'eteic pour 
nuuo 


183 




BTS 






ion 










185 


NU_CBU 


SEC 




;cde paa puur 
nous 


IBB 




JW 


lv_ULUCKU+a ) ilifwnce par 










CMDLOAD 


IB? 










188 
189 


' 2.3 - 


Retour d' analyse 


ae la comraanae 


190 


SUITE 




* 




191 




LDX 


SAVE_£RR replace le vecteur 








d 


erreur 


192 




STX 


PRINT EBB'l 




193 




LDX 


SAVE_ERB« 1 




194 




STX 


PRINT ERR-2 




195 










196 




CMP 


to 


sl paa U'erreur. 
an re-forraaCte 


197 




BEQ 


SOITE_2 




198 




CMP 


16 


path not found 
autorise 


199 




BEQ 


SUITE 2 




2Q0 




CMP 


IB 


l/o error 
autorise 


201 




BNE 


GO BAD2 





commande externe, e'est a dire 
directement accessible au clavier 
en mode direct, ou par PRINT 
CHR$(4) en mode differe dans 

un programme. 

Utilisation de 
CMDLOAD 

Si la lecture des derniers 
paragraphes vous a rendu tout 
pale, et que vous vous dites que, 
tout compte fait, I'empirisme du 
DOS 3.3 etait bien agreable, dites 
vous que la localisation absolue 
en memoire des programmes est 
tr£s ego'iste et peu realiste avec la 
venue prochaine de processeurs 
16 bits sur Apple II. De plus, le 
module CMDLOAD vous fait tout 
le travail ! 

CMDLOAD est destine h Stre 
utilise par tout programme 
desireux de se connecter a 
ProDOS. Les deux exemples 
ci-dessous (TDUMP et INIT) ne 
sont destines qu'a illustrer son 
utilisation. 

Chargez par BLOAD d'abord 
votre programme en $2100 puis 
ex^cuiez CMDLOAD en $2000, 
ou utilisez le programme 
CMDLINK qui fusionne les deux 
en un fichicr ProDOS de type 
binaire, directement executable 
par "-" (smart Run), par exemple 



202 


SUITE_2 


LDA 




a let rttman'l* 


203 




OPA 


#sco 




204 




STA 


V_CARD*3 




205 




LDA 


#62 8 


no davlM 


206 


V_CAPD 


LDX 


scorr 


|i paa un Dl*h 1 


207 




BEQ 


LXT_VOL 




ZOO 










209 


GO_3AD 


jsn 


BADCAU. 


en euti.ee: Uc- 
codc erreur HL.I 


210 


GD_DADZ 


Jttr 


rRINTEAft 




211 










212 
213 
214 


" 2.4 - 


Extraction du nom Uu volume 


LlT_VOL 






(PTR pointe tJe ja 
vets VMTH1J 


215 




LDY 


to 




216 




LUA 




longueur du noro 
du volume 


217 




TAX 






218 




DEX 






219 




CPX 


#510 




220 




KS 


SYNTAX 


non de vol une < 
16 caracteres 


221 




STX 


NC«_LC 




222 




INT 






223 




LDA 


(P-TRI , Y 




221 




CMP 






225 




BNE 


SYTiTAX 


le ler caractere 
doit etre "/" 


226 




INY 






227 


let Cre 


LDA 


1PTR) ,Y 


le ler caractere 
dolt etre une 


22B 


Lir_CAR 


CMP 


• •A" 




229 




BCC 


SYNTAX 
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h partir de votrc programme de 
STARTUP. 

Dans ce dernier cas, votre 
programme doit s'appeler 
xxx.CODE, et le fichier resultant 
s'appellera simplement xxx. 
(Apple a cree sous ProDOS des 
fichiers de type "commande 
externe", numerotes $F0, mais 
ceux-ci ne sont pas executables 
par BRUN ou quel in- 
teret ?) 

CMDLOAD peut generer les 
messages d'eireui : 

FILE(S) STILL OPEN (aucun 
fichier ne doit etre ouvert pour la 
niise en place dune commande) ; 

PROGRAM TOO LARGE (s'il 
ne reste pas suffisamment de 
pages libres en memoire pour 
reloger la commande). 

Fonctionnement 
des commandes 
externes 

Lorsque ProDOS rencontre une 
commande qu'il ne connait pas, il 
appelle l'adresse EXTRNCMD 
($BE06). En temps normal, 
celle-ci contient un JMP vers une 
instruction RTS. Mais il pointe 
sur le debut de votre programme 
($2100) si celui-ci a ete initialise 



par CMDLOAD. 

Votre programme doit verifier 
qu'il s'agit bien d'une commande 
qui lui est destinee. La chainc de 
caracteres a ete placee par 
ProDOS dans le buffer d'entrde 
en $0200 (avec eventuellement 

les caracteres blancs non 

significatifs qui ont pu etre 
saisis), et ses huit premiers octets 
(sans caractfcre blanc) se trouvcnt 
dans le buffer dont l'adresse est 
pointee par VPATH1 ($BE6C- 
BE6D). L'oubli de ce contr61e 
detxuirait la chafrie d'interception 
et, par exemple, aucune 
instruction Applesoft ne serait 
disponible en mode direct.. 

S'il nc s'agit pas de votre 
commande, effectuez un saut £ 
l'adresse contenue & l'adresse 
(relogee) $2106.2107 avec la 
retenue (carry) k 1. 

Extraction des 
parametres par 
ProDOS 

Si votre commande ne necessite 
aucun parametre, ou si vous 
preferez les extraire yous meme, 
placez un $00 en PBITS et 
PBITS+1 ($BE54-BE55) et 
retournez a ProDOS par un RTS 
avec la retenue & zero. 



Dans le cas contraire, il faut 
indiquer a ProDOS quels sont les 
parametres autoriscs en 
alimentant les bits de PBITS et 
PBITS+1 : 

$8000 demande de concatener le 

prefixe actuel ayec le nom 

de fichier saisi 
$4000 seul un numero de slot est 

autorise (PR# ou IN#) 
$2000 commande en mode 

differe uniquement 

(OPEN READ...) 
$1000 nom de fichier autorise 
$0800 creation automatique du 

fichier saisi s'il n'cxiste 

pas 

$0400 parametre T autorise 
$0200 second nom de fichier 

obligatoire (RENAME) 
$0100 nom de fichier obligatoire 
$0080 a $0001 autorise respec- 

tivement les parametres 

A, B, E, L t @, S/D, F et 

R 

II faut egalement indiquer & 
ProDOS que vous etes une 
commande exteme en stockant un 
$00 en XCNUM ($BE53), 
l'adresse oil ProDOS devra vous 
rappeler apris l'analysc des 
parametres en XTRNADDR 
($BE5Q-BE51), la longueur 
diminuee de 1 du nom de votre 
commande en XLEN ($BE52) 
(par exemple 3 pour la commande 



*J0 


tw 


f 'a'+i 




26S 


MX. 






231 


BCS 


SYNTAX 




266 


MX, 






23* LIT_NOH 


STA 


NOM_VOL-2 


r 


267 


A3L 






233 


DEX 






2GB 


3Tft 


FSLjOT 


3aO 


234 


BEQ 


CO_G0 


fin du nom 


Z01 


OU 


M_DRIVE 


%093300UU 


235 


INY 












(drive = l du 2) 


236 


LOA 




caractere auivant 


270 


VAX 






237 


CMP 




" eat autoriae- 


Z'tl 








230 


BEQ 


LIT_BOM 




272 


LDA 


»C08A.A 


aeleccicmne drive 


239 


CMP 


#*0' 










(X = lOSSSOOOd) 


240 


BCC 


XII CAR 




271 








241 


CHP 


♦•9 7 *1 




274 ■ i.£ 


- HecalLDrc la ce 


"to de lecture 


242 


BCC 


LITJiOH 


e'eat un chiffre 


21b • 








24 3 


BCS 


UT_CAR 




270 


JSF 


RECAL18R 




24 4 SYNTAX 


LDA 


#S40 




277 


LDA 


SCO80.X 


ttsaccive tcutes 


24 S 


BNE 


CO_BAD 


= 3np 








lea phasea 



2.5 - rormattaqes 



246 
247 

248 • - 
24 9 GO_GO 
250 
251 
252 
253 
254 
255 

256 ' 

257 « 

25* 

259 

26C * 3.1 - Selection slot t drive 

28i • 

262 FORMAT P • ■ 



LDA 
LOA 
LOA 



SCC 8? . X 
SCOI4.X 
SCOB6.X 



former, physique 



JSR FORMA T_P 

BC5 GO_BAD 

JSR FORMATJ. f oraix . loglquo 

BCS GO_BAD 
RTS 



3 - FORMA TTEUR PHYSIQUE 



278 
279 
210 
211 

282 ■ 3.3 - Boucle aur lea 35 plates 

2B3 

284 



LOA #GA?3 



285 
286 
287 



STA 
LOA 
STA 



GAP3BIS 
1580 
OP MLI 



288 LOOPTRX LDA (RETRY 



263 
264 



LOA BI_SLOT no slot: 50a 
ASL 



219 
290 
291 



STA 

INC 

I NITHORE LOA 



RETRYCNT 
GAP3_BIS 
• 



e apace raent 
inCer-seeteura 
par defaut 



on appelera 

ProDOS en lecture 
n onto re d'easais 
avant abandon 

vicesae iecteur 
on commence par 



le aecteur 



29? 




STA 


F SEC TOR 




?9"1 




SRI 






7Q4 




JSR 


T HI TRACK 


fonut. phyiioue 


295 




BCS 


EW3TWTT 


wt\ t"»-prnf * r*.r 


306 










297 




JSR 


VER_TRK 


vtrifia -g piac* 


391 




cu 






299 




DCC 


GOCHECK 


ok longueur 


300 




DEC 


CAP3_BI£ 


on dimirau- CAPS 
at on rigoBMDN 


301 




LDA 


CAP3_BIS 




392 




CMP 


It 


abandon *1 - Om t 
oct Lnt*ra«cC*ur> 


393 




DCC 


I HI TM ORE 




304 


IG_ERR 


LOA 


#527 


l/o error 


305 




3 EC 






306 




DCS 


EW> IN IT 


-3«P 


307 










308 


GOCHECK 


JSR 


CHECK 7 AK 


v6tl£le le 
TutnuiLLage 


309 




BCC 


NEXTTRK 




310 






KcTKI otr 




3L1 




BNfc 


INITHOKE 


on reraic un 
eaaal 


312 




BEQ 


IO_ERR 




313 










314 


NEXTTRK 


LOA 


FTRACK 




315 




INC 


FTRACK 




316 




LOT 


FTRACK 




an 




JSR 


ARH_HOVE 


place braa lectur 


318 




CKP 


*35~ 


35e plate ? 


319 




BCC 


LCOPTRK 


p-v. encore 


320 




CLC 






321 


ENDINIT 


LDY 


SC088.X 


arrece le moteur 


322 


EXIT 


RTS 
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INIT). Enfin, rctournez a 
ProDOS par un RTS avec la 
retenue a zero. 

ProDOS se chargera d'examiner 
les parametres, et de generer 
eventuellement les messages 
d'erreur de SYNTAX, RANGE 
ou PATH NOT FOUND (si des 
paramfctrcs slot et drive ou un 
nom complet de fichier avec 
l'indication du volume ont 6te 
saisis, ProDOS lit les disques en 
ligne pour creer ses pointeurs 
internes enire volume logique et 
lecteur physique). 

Si tout se passe bien, ProDOS 
rappelle votre programme zi partir 
de XTRNADDR, Les parametres 
effectivement trouves sont 
indiques par un bit de presence en 
FBITS et FBITS+1 (SBE56 
-BE57), qui reprend te decoupage 
de PBITS. La valeur effective des 
parametres est stock6e 
rcspcctivement en : 

VADDR SBE58-BE59 param£tre A 
VBYTE $BE5A-BE5C paramfcrre B 
VENDA SBE5D-BE5E paramfctreE 
VLNTH SBESF-BF60 paramfctreL 
VSLOT SBE61 parawfctre S 

VDRIV SBE62 param^tre D 

VFELU SBE63-BE64 paramfctreF 
VRECD SBE65 BE66 param&tre R 
VVOI.M SBE67 paramtaeV 

(ignord par les commandes 

ProDOS actuelles) 



VLINE SBE68-BE69 paramfctre @ 
RVTYPE $BE6A param&reT 
V1QSLT $BE58-BE59 slot PR#/LN* 
VPATK1 SBE6C-BE6D vcctcur vers 

com fichier 
VPATH2 SBE6E-BE6F vcctcur vers 
second fichier 

Ces deux derniers vecteurs 
pointent sur un buffer qui 
comiem d'abord la longueur du 
nom sur un octet, puis les 
caractferes du nom (bit fort a 
zero). Si le prefixe a 6t6 demande 
(premier bit de PBITS), le 
chemin complet d'acefcs au fichier 
y est stocke. 

Votre programme est maintenant 
libre de poursuivre son 
execution. 

Appels a ProDOS 
en assembleur 

Sous DOS 3.3, il ctait possible 
d'envoyer des commandes en les 
prefixant par un CTRL-D et en 
les envoyant a la routine de sortie 
des caracteres (COUT en 
$FDED). 

Sous ProDOS, en revanche, il 
faut stocker la chaine de 
caract&res dans le buffer d'entree 
en $0200 (avec les bits forts S 1), 
la faire suivre par un 
retour-chariot ($SD) puis appeler 



DOSCMD en $BE03. La petite 
routine ci-dessous fournit en 
exemple le catalogue du prefixe 
courant : 

LDY #0 
LOOP LDA CMD,Y 
STA $200, Y 
INY 

CMP #S8D 
DNE LOOP 
JMP SBEM 
CMD ASC "CAT" 
DFB $8D 

Cette methode ne fonctionne bien 
sfir que si le Basic.System est 
actif. On peut heureusement 
appeler directement le noyau de 
ProDOS, avec la syntaxe 
generate : 

JSR SBFO0 

DFB FONC ; fonction 
demandee 

DA PARM ; adresse table 
paramfclres 

BCS ERROR ; suite 

execution 

En retour, la retenue est a 1 si une 
erreur s'est produite et l'accu- 
mulateur contient la valeur du 
code erreur. 

Les tables de parametres sont 
differentes pour chaque fonction 
et debutent toujours par un octet 
indiquant le nombre en 
hexadecimal de parametres 
suivants ; voici leurs fonctions 



323 


* (en soctie: 


c— — > 


formate age ok. 


353 


334 




e-1 


A-J7 — > 


1 /a ercor. 


354 


3S5 






A -2D > 


-rite protect) 


355 


38 C 










32 T 
328 


■3.4- 


Eciliuie de 1'en-tete lie piece 


356 










357 


32* 


19 1 TRACK - 


■ 




358 


330 




mi 


15 


Initialise Is 
verif de 1q 


359 
360 


331 




LDA 


FTRACK 






332 




PHA 








333 




JSR 


VER_4_4 




361 


334 




PLA 






362 


33S 




EOR 


• 1 




363 


336 




LDY 


#9 




364 


337 




JSR 


VER_4_4 




365 


338 










366 


339 




LDA 


SC089. X 


(BOteur en nsarche 


367 


340 










366 


341 




SEC 






764 


342 




LDA 


M2B 




370 


343 




LOT 


SC0ID.3C 


mode ecrr.urc 


171 


344 




LOT 


5C08E.3C 






345 










779 


346 


* A partir die: ehaxpie cycle-machine 


373 




oompte 








774 


347 


• 4 cycl 


ea-machine sonc 


nftcessalres pour 


375 




ten re 


1 bit 






37* 


346 


' 40 

GAP 3) I 


cycles 


x (GAP1 


• 16 X IGAP2 - 


377 
37t 


349 


* ♦ 32 


cyclei 


* 16 V (14 • S1S7 ♦ 7) 


779 


350 


■ (Lea branchen 


enta rerlatlfa 






•ur li 


w "m 


• P"0") 




310 


351 










361 


352 




OKI 


F-XTT 




342 



»> DELAI7 

LDA tSTT 

srA SC08F.X 

CMP SC08C.X 

LDY |GAP1 

>» DELAH 

»> DE1AI4 

JSR GAP* RITE 



d'abord un octet 
a SFF sur 40 eyel 



puis plusieurs 
autrea pour 

synchroniser 



3.5 - Ecriture de la xone adrease 



364 LOOPSECT LDA 
JSR 
LDA 
JSR 
LOA 
.7«!H 



ISD5 

CCWV.4E3 
tSAA 

CONV_4E3 
IS96 

craw in 



jsr rr«v_4_i 

LP* FTBArif 

JS a CONV_4_4 

LDA FfiECTOR 

jsh cc*cv_< 4 

LDA FTBACK 



ecrit D5 AA 96 
sur 32 cycles 



• <ie vol rnu Jwin 
1 SOU l ProDOS 



4 Am plate 
I da taeteur 



ul du eont ft 1 . 



EOP 

eon 



FSECtOB 
41 



313 
384 

3BS 
386 
387 
388 

389 
390 
391 
3»2 
393 
394 
39S 
396 

397 i 

398 ' 
399 

400 

«01 
402 
403 
404 
405 
406 
407 
408 
409 



CIO 

411 DATA_L3 
413 DATA L3 



LER 

OBA fSAA 

»> HIUTE 
PLA 

ORA #9AA 

JSR CCNV 4E2 



LDA t 5DE 

J5K WJWV_4E3 

LUA | SAA 

JSK COW_4E3 

LDA #SEB 

JSR COMV 4E3 



op lc transforme 
en nibble vallde 
oE on 1" ecrit; 



2e nibble du 
controie de sonme 



ecrit OE AA EB 



3.6 - Ecriture de la cone de donneea 



LDY IGAP2 

JSR GAP_L3 

LDA ISD5 

JSR CONV 4E3 

LDA f SAA 

JSR CONV_4E3 

LDA « SAD 

JSR CCWV_4E3 

LDY 1556 



PWr flATA_L3 

DBLAtS 
LDA #1 06 



octets entre 
adreas et donneea 



puis 1D5 AA AD 



on ecrit S56 
nibbles sur 3? 

ryr v. 

iOS - SOO aprea 
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(reporter vous h la bibliographie 
pour en connaitre la description, 
ainsi que les codes erreurs) : 

Voir liste 1 => 

Voici, k titre d'exemple, une 
routine foumissant les attributs 
du fichier "ProDOS" sur lc 
prefixe courant : 

Voir liste 2 

Le principal utilisateur de ces 
appels au noyau de ProDOS est le 
Basic. System ; toutes les fonc- 
tions d'acces aux fichiers sont 
officielletnent disponibles via la 
page globale $BE. Voil^ qui 
simplifie la vie, car la routine 
ci-dessus devient ; 

Voir liste 3 

ProDOS etant independant du 

type de lecteur de disque 
employe, les fonctions ci-dessus 
parvicnncnt finalement a un 
Device Driver ("gerant d'unite"?) 
specifiquc. Pour la petite histoirc, 
quatre fonctions sont possibles: 
STATUS fournit le nombre total 
de blocs du support et son status 
de protection contre l'ecriture, 
READ et WRITE n'appcllent 
aucun commentaire, FORMAT 
n'est malheureusement pas 
disponible pour le Disk II 
d'Apple (... sinon pourquoi 
proposerait-on un utilitaire de 
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icrlt DE AA EB FF 
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JSR 


CONV 4E3 
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CONV_4E3 
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CONV_4K3 
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lntar-aecteurs 
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JSR 
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S4U 


ALLOC lNlfcRRUFl" 


fixe une routine de ge suon d'inierrupuon masquable (IRQ) 


S41 


DEALLOC_INTERRUPT 


retrait dune routine d 'interruption 


$65 


QUIT 


demande de chargemem d'un nou vcl intcrprdtcur systcmc 


$80 


READ BLOCK 


lecture d un bloc de 512 octets 


SSI 


WRITEBLOCK 


ecriture d'un Woe de 5 12 octets 


$82 


GETTIME 


appel & I"horloge pour mise & jour date/he ure {$BF90-BPj)3) 


$CQ 


CREATE 


cr^ttioQ d'un nouveau ficnici 


SCI 


DESIKOY 


destruction d'un ancien Itchier 


$C2 


RENAME 


renonune un ancien fichier sous le m A ejne cbemin d'acces 


SC3 


SETFILEJNPO 


change les attribute d'un fichier (type, lock/unlock,...) 


$C4 


GET FILE INTO 


lit les anribuu couraou d'un fichier 


SC5 


ONLINE 


obtient, pour un lecteur physique, le nom du volume monie 


$C6 


SETPREFLX 


change le prcfixe par deTaut 


SC7 


crrr'rRnnx 


lit le preiixc courant 


5>C8 


OPEN 


ouvre un fichier et retoume un nu mero de relfcrence 


SC9 


NEWUNE 


spec ifie le caractere de fin de champ (normalement SQD) 


SCA 


READ 


lit un ou plusieurs octets a portir de la position courante 


$CB 


WRITE 


ecrtt un ou plusieurs octets 


sec 


CLOSE 


ferme un, plusieurs ou tous les fichiers ouverts 


$CD 


FIIISH 


ferxit sur Hi soup, les buffers de un ou plusieurs fichiers 


SCE 


SETMARK 


change la position courante de lecture/ecriture 


SCF 


GET MARK 


obtient la position courante de lecture/fccriture 


SDO 


SET EOF 


change la position de fin de fichier (permet de tronquer) 


$D1 


GET EOF 


obtient la position de fin de fichier 


$D2 


SET BUF 


change 1'adresse du buffer d'un fichier 


SD3 


GET BUF 


obtient I 'adresse du buffer dun fichier 
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JSRSBFOO 
DFB SC4 
DA PARM 
BCS ERREUR 
RTS 

ERRHJR JSR SBE8B 
JMPSBEOC 

PARM DFB 10 

DA PATHNM 
DFB 
DFB 
DA SOO00 
DFB 
DA $0000 
DA $0000 
DA $0000 
DA $0000 
DA $0000 

PATKNM DFB $06 

ASC PRODOS' 



; appel le ProDOS 

; get_file_info 

; tabic des peramitrca 

; erreur? 
; nou : lini 

; traduit le code erreur ProDOS en code erreur Basic. System 
; gere 1 erreur et quiue 
; 10 parametres suivenL.. 

; en entree le nom du fichier, ma in tenant en sortie : 

; bits d'accea cn It^Uu^e^iUirc^dcsUoy/rcruunc/sauvcgdfde 

; type de fichier (programme Applesoft, binaire, texte, etc.) 

; type auxiliaire (par exemple adresse de chargement) 

; type de stockage (sous catalogue ou niveau des blocs d'index) 

; nombre de blocs utilises 

; date de derniere modification (bits = AAAAAAAMMMMJJJJJ) 

; heure de demiere modification (bits - HHHHHHI Q IMMMMM MMM) 

; date dc lt cation 

; heure de creation 

; longueur du nom 

; avee bits forta h zero 



Liste 3 



V PATH 



ERROR 
PA'IHNM 



LDAPATHNNM 
LDA VPATH » 1 
ST A SBEB4+1 
LDA V PA'IrI+2 
STA SBEB4+2 
LDA «SC4 
JSR SBE70 
BCS ERROR 
RTS 

JMPSBE09 
DFB $06 
ASC PRODOS' 



: instruction pour relocation d'adresse 
; pointe vers le nom de fichier... 

; ..xt lc stocke sur la table des paTaroetres (SBEB4-BEC5) 



; code de gct_file_info 

; Basic.System appel le ProDOS avec sa table 
; erreur? 

; non : fini, les parametres retoumes sont en SBEB7 BEC5 
; Basic.System va gerer rerreur 
; longueur du nom 
: avec hits forts a zero 
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formattage dans cet article ?). De 
toute manure, il est hauternent 
dcconscillc de l'appeler 
directement car, d'une part les 
fonctions READ BLOCK et 
WRITE_BLOCK de ProDOS 
suffisent amplement, d'autre part 
le Device Driver se trouve dans la 
partie haute de la cane langage 
(sur l'emplacement du moniteur 
de la ROM), done peu accessible 
et il ne vous pardonnera jamais 
les erreurs. 

Premiere 
application : 
TDUMP 

Si on passait aux travaux 
pratiques ? Pour s'echauffer, 
abordons la commande TDUMP ; 
elle fournit sur l'unite couranLe de 
sortie (ecran video ou 
imprimante) un "ecorche 1 en trois 
parties d'un fichier : d'abord la 
position du dump dans le fichier 
(dccalage par rapport au debut), 
puis l'affichage des codes ASCII 
conespondants (sauf les codes de 
controle qui font trop souvent 
ddlirer les cartes d'interface...), 
en fin la valeur en hexadecimal de 
chaque octet. 

La syntaxe complete est : 



TDUMP <nom fichier> [,S 
<slot>J l,D <drive>] 

Cette commande est applicable 
aux fichiers de tous types, (y 
compris les types SYS) ; les 
fichiers texte £* acefcs direct sont 
egalement visualisables en 
totalite. Dans un but 
pedagogique, on peut egalement 
acc£der aux sous-catalogues, 
ainsi qu'au catalogue principal du 
volume (par exemple en tapant 
TDUMP /EXAMPLES). 

On peut arreter momentanement 
l'affichage par uffe touche 
quelconque, puis definitivement 
par Ctrl-Q. 

Afin d'arneliurer l'ergonoinie, la 
commande adapte automati- 
quement l'affichage sur 40 ou 80 
colonnes selon l'adresse de 
l'unite de sortie (si celle-ci pointe 
sur un slot, l'affichage ou 
1'impression passe sur 80 
colonnes). 

Notre commande, appelee par 
ProDOS (et initialement mise en 
place par CMDLOAD), doit done 
d'abord demander & controlcr la 
saisie du norn d'un fichier et des 
parametres S et D eventuels, puis 
rendre la main. En retour, il faut 
ouvrir le fichier, en utilisant le 
buffer brouillon de ProDOS 
(utilise par les commandes 



temporaires telles que CATALOG 
et points par HIMEM), boucler 
sur une routine qui lit 8 ou 16 
octets k la fois (selon le nombre 
de colonnes), puis formatter unc 
ligne qui est envoyee S 
l'affichage. Finalement, n'ou- 
blions pas de fermer le fichier ! 

Le source (Big Mac) s'appelle 

TDUMP.CODE.S et genere 

lobjct TDUMP.CODE. 

Vous pourrez alors, pour mettre 

la commande en place, soil taper : 

BLOAD TDUMP.CODE 

BRUN CMDLOAD 

soit executer le programme 

CMDLINK qui creera le fichier 

TDUMP. 

Initialisation d f une 
disquette ProDOS 

Mainfenant que nous nous 
somnies mis & table, passons au 
plat de resistance : Initialisation 
d'une disquette ProDOS. 

Certes, l'utilitaire Filer fourni par 
Apple effectue le meme travail. 
Mais : 

1) il interdit de pouvoir initialiser 
une disquette pendant 
l'execution d'un programme 

puisqu'il faut charger le Filer, 
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puis recharger un interpreteur 
comme le Basic.System ; 

2) le Filer est tits long (45 
secondes) ; 

3) le Filer ne s'adapte pas k la 
yitcsse des lecteurs de 
disques : sur les deux lecteurs 
que je possede, le Filer refuse 
de form atter toute disquette sur 
fun d'entre eux, estimant que 
la vitesse de rotation est trop 
rapide, alors qu'il est possible 
d'initialiscr sans probleme 
sous DOS 3.3 ! 

Notre programme sera appele 
comme une comrnande externe 
ProDOS, done accessible en 
mode direct ou differe. Ii devra 
etre plus rapide et s'adapter h la 
vitesse des lecteurs de disques. 
Seulcs les disquettes pour Disk II 
d* Apple pourront etre initialisees, 
pas question d'acceder a un 
ProFile. La syntaxe est: 

INIT / <nom volumes [,S 
<slot>] [,D <drive>] 

Le nom du volume devra etre 
precede par un un caractere "/" et 
comprendre au plus quinze 
caractcrcs rcpondant a la syntaxe 
des noms de fichiers ProDOS. Si 
slot et drive ne soul pas indiques, 
l'initialisation s'effectuera sur le 
lecteur du prefixe courant. 
Les messages d'erreur possibles 



sont : 

SYNTAX ERROR 

RANGE ERROR 

WRITE PROTECTED 

NO DEVICE CONNECTED (si 

aucun lecteur Disk II sur le 

slot/drive indique) 

I/O ERROR (si la disquette est 

physiquement endommagee ou la 

vitesse du lecteur est largement en 

dehors de la plage de tolerance) 

Bien entendu, l'initialisation 
d'une disquette efface 
definitivement toutes les donnees 
qui pouvaient y etre enregistrees. 
Deux parties tres distinctes 
recouvrent le terme d'initia- 
lisation: le formattage physique et 
le formattage logique. 

Formattage 
physique 

Le formattage physique est fort 
complete. La description qui suit 
nest nullement necessaire a 
l'utilisation du programme, mais 
tente de repondre a la curiosite de 
nombreux lecteurs. 

Une disquette est composee de 35 
pistes, et la tete de lecture peut se 
deplacer individuellernent sur 
chacune. Que la Yie serait douce 
si tous les lecteurs de disque 



avaient exactement la meme 
vitesse de rotation, & la 
m icro-seconde prfcs ! C 'est 
malheureusement impossible, et 
des methodes complexes de 
lecture/ecriture des quelques 
50000 bits d'une piste et 
d'encryptage/decryptage de ceux- 
ci cn octets ont du etre 
developpees. 

A l'epoque de la creation du Disk 
II, une capacite de 80ko etail 
generalement disponible sur les 
disquettes de 5 pouces 1/4 ; 
l'abandon par Apple de la 
methode couteuse des bits de 
synchronisation, puis lc 
decoupage dune piste en 16 
secteurs a partir du DOS 3.3, ont 
porte la capacite £ 140k, en 
acceptant un certain nombre de 
contraintes qui doivent etre gerees 
par le logiciel : 

° un octet ne peut etre lu ou ecrit 
que s'il respecte plusieurs 
limitations (bit fort a 1, 
pas plus de deux bits nuls 
consecutifs, etc.) ; en 
consequence, il faut 342 octets 
pour eu coder 256. 

° chaque secteur d'une piste est 
compose dc deux zones : 
adresse et donnees ; 

° la zone adresse comprend un 
prefixe (compose des octets 



536 »> v&uuli 5 67 ASL syncnronlse a laiaver puser 

337 GM>_L2 >>> U&LA1J 548 ASL &*4 INI 

338 &Ar"_L3 >» D&LA12 5*9 ASL 393 CPI 1X3 13 OCCeCB en ZOne 
33» >» D&LAI3 570 STA MJfLUCH ler bluu li-uoe adresse 

540 UAf_L4 »> DJLLA12 piste " plsLe * 399 8tg vtK_L3 C'est Tint 

Ml LOA »5FF aonnera un occec 571 BCC CH£CK_L2 597 CHl* TAB_VEK,? correspond au 

a 10 bits: 572 ISC M_BLOCK+l (bloc > strj seeteur ? 

UllllUlOO 573 CHBOtja JSR GOMLI appei a Prooos 39s BEO VER.U 

542 >» HRITE pour lire le bloc 599 SEC :erreur: 11 faut 

543 DEY 574 DCS CHECH L3 via la zone non reduire GAP 3 

544 BME GAP_L1 translatable BOO RTS 

545 >» DEXAI4 575 INC M_SLCCK en sortie, le 601 VER_L3 CLC 

546 RTS noteur ess arrete 602 RTS 

547 576 DEY 603 « {on peut maintenanc deraander * ProDOS de 

548 * 3.d - Hodule de verification du 577 BSE CH£CK_L2 bloc sulvant contr&ler 

formattage d'une p^ste 57B CH£CK__L3 RTS ; c«0 ■■> OK ; 604 • 1 'ensemble de la plate, sans rlsQue 

549 ■ C"l ■■> KO qu'il se plance...) 

550 CHECKTRX - • 579 605 

551 LOA 10 5C0 ■ 3.e - Verification de la longueur de la 606 VER_4_4 PHA 

552 srA M BLOCK+1 pi«e rorraattto 607 UR 

553 STA H. BUFFER lit vers buffer 581 • 608 ORA t SAA 

tous usaaes 582 * (on vient noxsalenant de boucler une 609 STA TAB_VER. Y initialise cable 

554 LOA BWEM+1 c/ui conraence en piste. On doit de verification 

Hi mem 583 • done revenir sur la lone adresse du 610 PLA 

555 S?A M_BUFTER+ 1 sexteuE 0.) 611 ORA »SAA 

556 LOA VC_PARM*2 determine i'ad 584 VER_TRK LDY II 612 I NY 

des paraiwtres 585 VER_L1 LOA 5C08C.X lit un octet 613 STA ~A3_VER. Y 

557 STA VC_HLm 586 CMP #SFF 614 RTS 

558 LDY BI_DRIVE no de lecteur 1/2 587 BNE VER_L1 on attend d'etre 615 

«9. np.Y svnchronls* 616 

5C0 TYA 588 DEY 617 

S61 LSR ,"="» eajry=0 ou 1 589 BPL V£R_L1 on lalsse passer 618 • 4 - FORMA TTFIUR r/KTQIIE • 

5(2 ROR 2 oct synchro 619 ■•«••■•»••••»»■*»•»«••••*••••*•*••»••«»•■« 

563 ORA rSLOT donne tdasaOOOO 590 VER_L2 IDA SC0BC.K 6?0 

5S4 eta h_ukit 591 BPL vTJMJ S?l PftBMAT.L - * 

SGS LDY |8 bloo* par plate 592 CMP #SFF 6?? • (en »nr r*» tan* blocs one *t* 

566 LOA F TRACK piste a controler 593 VER_L2 encore un fn^i-lises ■ zero bin air.) 
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D5, AA, 96), dcs informations 
sur les numeros de volume, de 
piste, de secteur et un controle 
de somme (chacune codees sur 
deux oclels), el un suffixe 
(DE, AA, EB) ; 

o la zone donnees comprend un 
prefixe (D5, AA, AD), les 342 
octets representant les 256 
octets du secteur, un contrfile 
de somme sur un octet, et un 
suffixe (DE, AA EB) ; 

u chaque zone est precedee d'un 
certain nombre "d'octets" 
speciaux k dix bits, les huit 
premiers & un, les deux 
suivants a ; ces octets servent 
k synchroniser la lecture sur le 
premier bit d'un octet, et non 
pas sur une position 
quelconque dans un octet ; 

o pour adapter le formattage a la 
vitesse de rotation,, il suffit de 
1 jouer" sur le nombre d'octets 
de synchronisation entre deux 
secteurs ; 

Ces contraintes doivent etre 
gerees par le logiciel d'acces 
disquc, et done par le programme 
de fonnattage. 

La difficulte majeure S 
programmer cette routine reside 
dans sa dependance au temps: 
chaque bit doit etre ecrit en quatre 



cycles-machine (soit trente-deux 
cycles pour un octet normal, et 
quarante cycles pour un octet dc 
synchronisation), et il est done 
imperatif de compter le nombre 
de cycles de chaque instruction, 
car tout decalage rend la disquette 
illisible. Le developpcmcnt a etc 
gran dement fa ci lite par 
rutilisation de Bugbyter (Pom's 
13). 

En consequence et afin de rendre 
la lecture du source plus aisee, les 
instructions assembleur qui ne 
servent apparemmenta rien mais 
permettent, en fait, de "passer lc 
temps" ont ete regroupees dans 
des macro-instructions de 
temp oris at ion. 

ProDOS, comme le DOS 3.3, 
Pascal ou CP/M, utilise le m6me 
formattage physique en 16 
secteurs. En revanche le 
formattage logique differe pour 
chaque systeme. 

Formattage logique 

Le formattage logique est 
l'organisation interne du systeme 
d' exploitation qui rend 
transparent, a 1'utilisateur final, 
1 eparpillement en blocs d'un 
fichier sur la disquette ; (le bloc 
est une unitd logique regroupant 



deux secteurs). 

Dans le cas de ProDOS, le 
formattage logique implique les 
actions suivantes: 

° mise a zgro binaire de tous les 
blocs. 

° les blocs deux a cinq 
contiennent le catalogue du 
volume ; ils sont chaincs cntrc 
enx par des pointeurs avant et 
arriere. De plus, le bloc 2 
contient des informations 
generates sur la disquette, tel 
que le nom du volume et sa 
date de creation. 

° le bloc 6 contient la carte du 
volume ; apres une initiali- 
sation, les sept premiers blocs 
doivent etre marques occupe. 

o les blocs 1 et 2 contiennent les 
instructions machine qui 
chargent ProDOS. Si la 
disquette est destinee a etre 
bootee, il faudra copier le 
fichier ProDOS sur cette 
disquette, ainsi qu'un 
interpreter systeme (genera- 
lement Basic. System). Dans 
le cas contrairc, la disquette ne 
pourra etre bootee (cas dune 
disquette de donnees), et 
ProDOS affichera un message 
d'erreur cn cas de tentative. 

Ces deux premiers blocs different 

selon les versions de ProDOS ; 



623 
624 



£25 
626 
627 

621 • 4.1 

629 • 

630 



631 
63? 



634 
fi3S 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
641 
64* 
650 
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652 
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LDA 1 561 

S 7A OPMU on appelera 
ProDOS en 
fterlture 

LOY 10 

STY M_SLOCK*l 

- Blocs 3 a 5 du Volume Directory 

LDA (5 



dernier bloc du 
Volume Olre-ctory 



STA H_BLOCK 
LDA M 



le ore'cedent est 
le bloc 4 
STA (HIHEHl.y Hiraeni oolnte vers 
le buffer general 

JSP WRT Tf _W. 

DEC M R'nrx on paaae au bloc 4 
LDA (3 

STA (ftlMEH) . Y 

LDA IS 

LOY #3 

STA (IllHKBJ-.Y 

JSP MFITE_DL 

DEC NDLOCK . ..pula on bloc 3 

LOA f 4 

STA (HI MEM) . T 

LDY #D 

LDA 12 

STA (HIHEH). T 

J5H WW . l H . 

Bloc du Volume Bit Kip 

LOA ISFF bit a 1 Indique 



6S5 



LOT 



fiSt WRIfE_L2 STA 

657 DZf 

655 BWE 

659 LDA 



660 

661 



STA 
LOA 



1523 

(HIHEH) . Y 



WRITE_L2 



(HI MEM) . Y 
IS 



bloc Ubra 
IS22-1? Ml- 210 
bLoos sur dlaq 



les blcca A 6 
aonc utiliaea 



la BUL Hay eil 
mi le Li] Lit 6 



66? STA H_B10CK 

665 JSM HR3 7e_Bl_ 
664 

663 " 4.3 - Fzecniei blue tiu Volume Directory 

666 ■ — « — — — 

667 TTA 



669 WRITE L3 ST* (HI MEM) . Y 



609 

•70 

•31 
6/2 
673 
6M 

6/3 
6/6 
•77 
676 
679 

610 
611 

612 LDX 
683 VHITE_L4 LDA 
664 I NY 



INT 

-IN-- 

LP* 
LOT 
STA 



iky 

LDA 
OAA 



93 

12 

(HI MEM) . Y 



an tenet la bloc 
a zero mnaire 



polnteur avant 
prochaln bloc 



UFO 

NOM LC 



(0-6F) 



Directory du Volu 
lg non du volume 



STA (HIHEH) , Y 



685 
686 
687 
68D 
669 
690 



STA (HIMEH) . Y 
I NX 

DEC NOM_LG 

BME HrUTE.H 

J5R DATETIME 



697 LDY IMF 

693 WRITE_LS LDA DATE, X 

694 STA (HIHEH) , t 



DEY 
DEX 

8PL WRITE LS 



696 
696 
• 97 
698 

699 LDX 18 

700 LDY IS2A 

701 WHITE L6 LDA VOL DIR.* 



appel 6 une 

*v**nr.uei le 
horlooe 



ot*«cion diaq 



met conatantea 
initialed du 
Di leutoiy 



NOH_voL. X nom du vol urn 



102 
703 
104 
103 
70* 
10 I 

708 
709 
710 
7U 
712 
713 
714 
715 



STA (HIM£H),T 

DEI 

DEX 

BPL HRI YE_L6 

LDA i: 



ler bloc du 
Directory eat 12 



STA 

JSK 



H_BLOCK 
WRITE BL 



* 4.4 - Blocs genfenque-s du boot 

LDX VC_t*OOT2»l 
STX HBUFFER 
LDX VC BOOT2*2 



58 



Pom's n° 20 



aussi, plutot que rendre le 
programme de formattage 
dependant d'une version precise 
(et doubler la tattle du source), 
utilises INIT.L1NK pour 
configurer la routine a votre 
propre version de ProDOS. 

Aim de contrfiler le bon 
derou lenient de initialisation 
physique de la disquette, un 
double controlc est cffcctuc apr5s 
le formattage de chaque piste. 
Apres avoir initialise le dernier 
secteur d'une piste, on verifie que 
le prochain secteur lu est bien le 
secteur zero ; ceci permet de 
s'assurer que Von n'a pas ecrase 
le debut de la piste en ecrivant la 
fin (cas dun lecteur trop rapide), 
et que Ton n'a pas laisse un 
ancien secteur entre le debut et la 
fin (cas d'un lecteur trop lent). 
Deuxieme controle, plus 
approfondi celui-ci, on demande 
a ProDOS, par des appels a la 
fonction READJ3LOCK, de 
verifier que tous les secteurs dc la 
piste peuvent etre correctement 
lus. Aueiidou ; si on deniandait a 
ProDOS de lire une disquette mal 
formattee physiquement. celui-ci 
se "planterait" lamentablement en 
faisant "trepigner" le bras de 
lecture... un bug ? 

Cette description vous a montre la 
complexity des methodes 



71S 

->n 

718- 
719 

7zo 

nx 
in 

72» 
724 
'if* 
726 
III 
ua 
129 



730 
731 
732 
733 
734 
735 
736 
737 

73$ 

739 
740 
741 
742 
743 
744 
745 
746 



CTX H_BWFFER*1 

DSC H_BLOCK d'abor-d 1* blnn 

JBR HWf£_BL 

DEX 

DEJC 

3TX H_QOFFEnH 

DEC rI_BLQCK p-uia lo bloc 

JMP W1UTE_BL 

■ 4. a - nodule cTecrlture cVun blue 



WX WW TE_&2 

PiA :si erreur un 

sauce un niveau 
d 1 appal 

PLA 

HRI TE B2 RTS 



S - ZONES DE. TRAVAIL 



VC_PARH LDA H_PARrt 
BRK 



instructions pour 

vecteura relageab 
,-termine la zone 
de codes 6502 re I 



5.1 - Constances i variables 



COKMAND ASC 
FTAACK DFB 
F SEC TOR DFB 
FSLOI 
A TRACK 



d'acccs-disquc lorsqu'cllcs sont 
analysees au niveau le plus fin 
(et, en corollaire, la grande 
diversite des methodes de 
protection possibles...). 

Avec un peu de pratique, il est 
possible d'accroitre la capacite 
des disquettes 5 pouces, peut-etre 
d'environ 10%, cn n'utilisant 
qu'un seul secteur par piste, 
secteur de longueur variable selon 
que la piste se trouve pres de 
l'axe de rotation ou des bonis, 
mais il faudrait alors reecrixe 
quasi-compl&tement le systeme 
Sexploitation ct on se rctrouve 
tres vite coince par le hardware ! 

Cette premiere approche vous a 
neanmoins, je l'espere, montre 
que l'utilisation de ProDOS en 
assembleur etait beaucoup plus 
aisee que sous DOS 3.3 f pourvu 
que le maitre-mot "coexistence" 
suit respecte entre les differents 
programmes. 



Bibliographic 

ProDOS Technical Reference 
Manual [Apple) 

Beneath Apple ProDOS (Quality 
vSoftware) 

3 



Programme CMDLOAD.S 
(Assembleur Big Mac) 



DFB 
DFB 



747 
748 

749 

750 
7 51 
752 
753 
754 



756 
757 
758 
759 
760 
761 
7 62 
7 63 

764 

7 65 
7fifi 
7«7 

7«e 

74B 

770 

771 
773 
773 
774 
776 
776 
777 
778 



D_TRACK DFB 
ARH_FLAG DFB 
ARM_DIFr DFB 
ARM_TAB DFB 
GAP3_BIS DF3 
RETRYCNT DFB 
NOMLG DFB 
NOH^VOL DFB 

,B ( 3,B.B 
TAB VER DFB 



2.4,6.0,6,4,2,0 




B.B.B.B.B.B.B.B. B.B.B 

(15 biancal 
SD5, SAA. $96. SAA. SAB, 0, 0, 
SAA. SAA, 0, 0, SDZ, SAA 
VOL D1R DFB SC3, S27, SD. 0, 0, 6, 0, $18 , 1 
SAVE ERR DA 

• 5.2 - Accel A Pro DOS 



GO__MU 
OP_MLI 
VC HLI 



JSR 
DFB 
DA 
RTS 
nFB 
DFB 



HLI 
$80 

H PARM 



leetu re/ecriture 



M_PAHM 

K_rair 

M_BOrrER DA 
M BLOCK DA 



5.3 - Bloga du boot 



■ 2ona ir^noire ohalnee par INIT.LIWK 
BCOT_BL2 • -'$20 

FIN - •M00 

LOWG - --STAHT*S4O0 

LST ON 

END 



11 « Copyright (C) 1915 Alexandre Avrane t 
13 * * 

13 « Ho4iCi*i 0«/04/85 * 

14 - Cr*«i 13/03/85 • 



16 * Asflenbleuri Big Hao 



20 ■ Objeccifsi 

21 * 

22 • Installs ud« corauande exteine 

P;uDC3/3o3io.3v3:cJi 

23 ■ Environnenent: ProDOEJ i DbbIc Oj-aCeio 

24 * CorapatifalllCe; FroDOS B.4, 1.0, 1.0.1 ot 

a ul vane a 

25 * InlCQraliuii: dmigc en 32000 

20 * Restrictions: aucun lichier ouvert, 

27 * chaines de caracteres basic decruites 

20 

29 • Source (Big Hac) : CHDLOAD.S 

30 ■ UDJet: CMULUAD 

U 

J2 ■ Ce programne se caarge en S2000 

33 • Avanr. son execution, la comraance externe 

dole avoir 

34 * ete charge-e et repontfre aux convene i una 

lulvantes: 

35 ' -chargeraent en S2100 

36 * -octet haut de 1'adresae de Cin 

lncrenente de 1 en $2102 

37 " -octet haut de la longueur en $2104 

38 * -adrsase d« la comma ride axcerne 

precedente en $2106.2107 



40 • Adreaaea utiliseees: 
42 



LENGTH 

Al 
A2 
A-4 

PTR - 
H3MEH 

OFFSET - 
FLAGMAJ = 
BASE - 
START 
HFIN 

HLONG - 
OLDCMD 



EHROUT 

OPENCNT 

MU 

BITMAP 



63 OPCODE 



S2P 

53C 
$3E 
542 
S4B 
$73 

Al 

Al+1 

$2000 

BASCS100 

BASE*5102 

BASE*$104 

BAS-:+$106 

SBE0 6 

SBE0 9 
SBE4D 
SBF0O 
SPXSfl 



longueur-l d'une 
instruction 6502 
vecteurs du HOVE 



vece tenf>oralre 



ad de chargement 



COOT 
KOVli 



tFDED 
SFE3C 



ORG DAS & 



vecCeur entree 

vecteur erreur 
nb Cichier ouvert 
entree de ProDOS 
carta daa pagp* 
MH uriH -A— 

Eouenlt long 
Inicruetlon 6503 
routine afflchage 
daplaeanc nainolf* 



1 - ISITIALISEDR 



73 
76 

77 
78 
79 



LDA HLI 

CMP |S4C 'jrap' * 

SEQ VER_RAM 

lua I&87 frouus paa actir: 

on arrete 

JMP COOT en "beepant" 

1.1 - Recherche de la (oomoirc 



Pom's n' 20 



10 












SI 


VER 


RAH 


LDA 


OPENCNT 


Elchlers ouverts? 


82 






B2Q 


FIND HAH 




83 






LDA 


ISIS 


FILE STILL OPEN 


84 






JMP 


ERRODT 


oui: Impossible 












placer la routine 


85 


FIND RAM 


LDA 


ALONG 




It 






ADC 




(carrv=U 


87 






JSR 


GETBUFR 


cherche Dooea RAH 












cons^cycivca 


88 






BCC 


RAH_CK 


ok. c'est trouve 


89 


NO_RAH 


LDA 


114 


PROGRAM TOO LARGE 


90 






JHP 


ERROUT 




91 












92 


RAM. 


OK 


CMP 


hf:n 


Acc = tub leie 












pace alloiiee 


13 






BCC 


MO RAM 





95 * 1.2 - Installs In nouvelle ccrrraance 



»n - 
97 


LDX 


EXTCKO'2 




98 


STA 


F.XTCNT1+? 




99 


S7X 






1 00 


TJMf 


FlfTf MT1-»1 


mt Jianv^g* rri*> 








1 "anc-tan vanfaiir 


1 M 


RTX 


ntiv-Hn 


ri* roiwr.arde ewt 


1 07 


1J1V 


40 




103 


STY 


F.XTCMD-l 




1 04 








105 * 




■ortK nhjat 


1 Ofi • 








107 


PHA 






101 


SBC 


4>$TAPT 


to-ll 


10P 


STA 


:-r:z: 




110 


PLA 






111 


SEC 






113 


SBC 


44 


4 pagea - 1 It 


113 


STA 


HIHEH'l 


flao 81 mem et 1b 








buffer general 


114 


LDA 


Is-etar? 




115 


STA 


PTR-1 




116 


ETY 


PTR 


■r.-;.-- dot: debu 



118 PXIfOC 


III 


LDY 


40 




119 




LDA 


(P?H> .Y 




120 




BEQ 


N0VIJI4 


3IW(500J ■■> r 

-■-Lie eL LXUSLaiiLe 


1Z1 




JSR 


OPCODE 


ilcrsamle 1 a lung 


121 




LOT 


LOTQXH 


■j' ..re instruction 


123 




CPT 


42 


si 2 alora 3 uci 


1*1 




SN£ 


ftLLQC_L2 




123 




LDA 


(PTA) . Y 


pienU haul 


126 




CHP 


4>5tMlT 




127 




BCC 


R£LCC_L2 


adresse plus 
Basse que nous 


1ZD 




CM? 


win 




129 




BCS 


R£LCC_L2 


aaresae plus 
haute Que noua 


130 




ADC 


OFFSET 


ajouce decalage 


131 




STA 


(PTR> . Y 


met A }our instru 


132 RELOC 




LDA 


PTR 




133 




SEC 






134 




ADC 


LENGTH 




135 




STA 


PTR 




136 




LDA 


PTR+1 




137 




ADC 


#0 




1 38 




STA 


PTR+1 




139 




BNE 


REL0C_U 


=]np 



140 

141 • 1.4 - Deplace code vers zone disponible 

142 ■ 

143 HOVE LI 



144 
145 
146 
1 47 
148 
149 
150 
151 
152 
153 
154 
155 
156 



LDY 


l<START 


LDA 


4 > START 


STY 


Al 


STA 


Al*i 


CLC 




ADC 


HLONG 


STY 


A4 


DEY 




STY 


A2 


STA 


A2«l 


LDA 


EXTCHD*2 


STA 


A4+1 


TNY 




JMP 


HOVE 



doit etre 
align* ) 



(code 



165 


* X *~ 


; allocation permanente sur 


191 




FLAG-HAJ 








Herauiy 


Bi . Map 


192 




CDOT'_l-4 


non nul, lei 


1 Gfi 


* c. >uiL1bi 




1 al eueut, 








pauagt aena HAJ 


1 &7 


" si nun 


A — nuiaecu lore page ollouce 


193 


~. TSX. 


£j J rMA 3 K V 




1 GS 








194 


ORA 


OITMAP, X 


MA.7 - - - ,- llAlia.lia 


1C9 


STA 


:-Jl II 


i*b ^ - / - ■ 


195 


STA 


DITMAP. X 










ci^ci cTi c e 3 


194 GDUF*__L4 


LOA 


PAOE 1 




170 


LDA 


EIMEM~1 




197 


3 EC 






171 


CIA 






1 30 


C£C 


PAGE 2 




172 


ADC 


1 1 


r . . . p - r _ . . i a/c du 


199 


SBC 


? j " " 












200 


CMP 


PAGE t< 


i. J L " ? pilQC^ 


173 


ST* 


rf*v»* 1 










'■c:. .".tea? 


17 4 


SIX 


ELAu HAJ 


non null . pasaog 


203 


BNE 


QBUF 1.3 


nun^ on concrOle 


173 


(■Mir i .1 nF«~ 


PASt_l 


tete oe serie 








1 a — f l n f* ?J - Mr^r r. 
*- u K a U b VMtV S4I Ml 


176 




bdUI_i.B 


pas trouve 


202 


LDA 


FLAG HAJ 




177 


1 -< IV T MA 


PAGE_1 




203 


BNE 


GOOF L3 


*v 1 nnn mil mm 


171 


STA 


PAt5£_2 












1/9 


GBOF_L3 LDA 


?AG£_2 


page courante 


204 


CLC 






160 


PHA 






HS 


LDX 


PASE_2 


e'est xlnl 


181 


LSB 






206 


I NX 






182 


LSB 






207 


TXA 






183 


ISR 






zoe 


ftTa 







s v©m$ propose 



II est inutile de presente le jeu de dominos; celui-ci beneticie d'un 
graphisme tr&s soign6 (en couleur si vous disposez d'une carte 
"Chat Mauve") et les messages transmis par le programme sont, 
au choix, en Fran^ais, en Italien, en AAlemand ou en Anglais. 




iiijaiaiMos] 

iiiiiiiiiniiiiiiliiiiMiiiiftiiiiiiiM m mi iiiiiiiiiiitiiii 11 iiiiii iimiiii 




80.00 F TTC franco 
Bon de commande page 74 



deplace. termlne 





1 ' Initiall n .- - ■ 


1R4 


TAX 




;aultlDlie par 8 


209 


GBUF_L5 


LDA 


10 


157 




18S 








210 




STA 


FLAG_HAJ 


158 




196 


AND 


#7 


forrae indlce dans 


211 




BSC 


GBUF_L2 -3rap 


1 *0 


* 1 .a - recherche de p*g«a llbres en RAN 








ma^qiir eirr chrj Oct 


212 


CBUF_L6 


SEC 




160 


• 


187 


TAY 






213 




BTS 




1 61 


GETBLTfl - • 


188 


LDA 


BITKASK. 2 




714 


UTTHA.qK 


DPR 


SBO.S40,S?0. 510. 


1*2 


• (ee module devalt etre inceojee dona 


189 


AND 


BITMAP, X 


car BIT artHr. V 


?1S 


p&r.r.ji 


n?n 


□ 




ProDCS k l'adrevee SBEF5 








n'eat possible 


216 


PAGE_1 


DFB 


a 


162 


" an an trie: A ■ n ombre da page* dAalreaa 








quo aur tic 


217 


PAGT. ? 


BFB 


□ 


164 


■ X — : alloc memoir* tanooriita 


190 


BNE 


C30F_L1 


pa« H* p! nr.* 


?T 8 




FNH 





v. 

60 



Pom's n 20 



Recapitulation 

CMDLOAD 



2000- 


AD 


00 


BF 


C9 


4C 


FO 


05 


AQ 


2008- 


87 


4C 


ED 


FD 


AD 


4D 


BE 


FO 


2010- 


05 


A9 


15 


4C 


09 


BE 


AD 


04 


2018- 


21 


69 


00 


20 


98 


20 


90 


05 


2020 - 


A9 


OE 


4C 


09 


BE 


CD 


02 


21 


2028- 


90 


F6 


AE 


08 


BE 


8D 


08 


BE 


2030- 


8E 


07 


21 


AE 


07 


BE 


8E 


06 


2038- 


21 


AO 


00 


8C 


07 


BE 


48 


E9 


2040- 


21 


85 


3C 


68 


38 


E9 


04 


85 


2048- 


74 


A9 


21 


85 


49 


84 


48 


AO 


2050- 


00 


Bl 


48 


FO 


27 


20 


8E 


F8 


2058- 


A4 


2F 


CO 


02 


DO 


OF 


Bl 


48 


2060- 


C9 


21 


90 


09 


CD 


02 


21 


BO 


2068- 


04 


65 


3C 


91 


48 


A5 


48 


38 


2070- 


65 


2F 


85 


48 


A5 


49 


69 


00 


2078- 


85 


49 


DO 


D3 


AO 


00 


A9 


21 


2080- 


84 


3C 


85 


3D 


18 


6D 


04 


21 


2088- 


84 


42 


88 


84 


3E 


85 


3F 


AD 


2090- 


08 


BE 


85 


43 


C8 


4C 


2C 


FE 


2098- 


8D 


FB 


20 


A5 


74 


18 


69 


04 


20A0- 


8D 


FC 


20 


86 


3D 


CE 


FC 


20 


20A8- 


F0 


47 


AD 


FC 


20 


8D 


FD 


20 


20B0- 


AD 


FD 


20 


48 


4A 


4A 


4A 


AA 


20B8- 


68 


29 


07 


A8 


B9 


F3 


20 


3D 


20C0- 


58 


DF 


DO 


El 


A5 


3D 


DO 


09 


20C8- 


B9 


F3 


20 


ID 


58 


BF 


9D 


58 


20DO- 


BF 


AD 


FC 


20 


38 


CE 


FD 


20 


20D8- 


ED 


FD 


20 


CD 


FB 


20 


DO 


DO 


20E0- 


A5 


3D 


DO 


07 


18 


AE 


FD 


20 


20E8- 


E8 


SA 


GO 


A9 


00 


85 


3D 


FO 


20F0- 


B9 


38 


60 


80 


40 


20 


10 


08 


20F8- 


04 


02 


01 


00 


00 


00 


15 





Recapitulation 

INIT.CODEO 



2100- 


D8 


A9 


27 


A9 


08 


AD 


58 


FF 


2108- 


AD 


5E 


27 


AD 


6C 


BE 


85 


48 


2110- 


AD 


6D 


BE 


85 


49 


AO 


01 


Bl 


2118- 


48 


D9 


13 


25 


DO 


3F 


C8 


CO 


2120- 


05 


90 


F4 


88 


88 


8C 


52 


BE 


2128- 


A9 


00 


8D 


OF 


BF 


8D 


53 


BE 


2130- 


A9 


01 


8D 


54 


BE 


A9 


04 


8D 


2138- 


55 


BE 


AD 


OD 


BE 


8D 


4F 


25 


2140- 


AD 


OE 


BE 


8D 


50 


25 


AD 


61 


2148- 


21 


AD 


47 


21 


8D 


50 


BE 


8D 


2150- 


OD 


BE 


AD 


48 


21 


8D 


51 


BE 


2158- 


8D 


OE 


DE 


18 


60 


30 


GC 


06 


2160- 


21 


AE 


4F 


25 


8E 


OD 


RF. 


AE 


2168- 


50 


25 


8E 


OE 


BE 


C9 


00 


FO 


2170- 


08 


C9 


06 


FO 


04 


C9 


08 


DO 


2178- 


12 


AD 


61 


BE 


09 


CO 


8D 


85 


2180- 


21 


A9 


28 


AE 


FF 


CO 


FO 


06 


2188- 


20 


8R 


RF. 


4C 


OC 


BE 


AO 


00 



2 190- 


Bl 


48 


AA 


CA 


EO 


10 


B0 


2C 


lino 


BE 


A A 


A C 

25 


Co 


Bl 


A A 

4 8 


C9 


2F 


9 1 a a 
21AU — 


UU 


9 9 
££ 


Cb 


Bl 


J| A 

48 


C9 


41 


A f\ 

90 


£ lAo — 


IB 


A 


!;B 


1*1 A 

BO 


17 


A A 


28 


25 


9 1 OA 
£ IBU — 


CA 


FU 


15 


H A 

Cb 


Bl 


4 8 


A A 

C9 


2E 


21B8- 


FU 


F3 


C9 


30 


90 


E7 


C9 


3A 


21CQ- 


90 


EB 


B0 


El 


A9 


40 


DO 


CO 


21C8- 


20 


D3 


A 1 

21 


BO 


BB 


A A 

20 


f* A 

58 


A t 

24 


£ 1DU — 


BO 


B6 


fZ A 

60 


AD 


61 


BE 


OA 


OA 


a i r\ a 
£ 1D8 — 


□A 


A » 

OA 


Ar\ 

8D 


1A 


25 


0D 


62 


BE 


7 1 F A — 


ft /x 
AA 


r * ft 


dU 


Q A 

□ A 


UU 


£ U 


-i J 


£ J 


•l lLO — 


BD 


A A 
8U 


CU 


BD 


A A 


CO 


BD 


A i( 


o i r a 
£1FU- 


CO 


BD 


A 

bb 


CO 


n A 

A9 


*J A 

1 9 


8D 


27 


A T O Q 

£lr o- 


a n 
£ J 


31 A 


Cl A 

80 


A r% 

8D 


C A 

54 


A C 

25 


A9 


10 


a *■> a a 
2200 — 


8D 


28 


25 


EE 


27 


25 


A9 


00 


££;Uo — 


BD 


19 


2b 


/8 


20 


4 7 


22 


B0 


9 1 A 

£2 ID - 


T A 
J£ 


A A 


A f" 

£ 6 


24 


C A 


A A 

90 


OF 


CE 


££ 18 — 


A -J 


A C 


AD 


A A 

27 


A C 

25 


f A 

C9 


A A 

08 


BO 


£££U~ 


E J 


A9 


A A 

2 / 


a n 

38 


B0 


ID 


A A 

20 


EA 


£ ££ O — 


9 9 
£ j 


A A 

yu 


A T 


CE 


Al A 

£b 


A C 

2 5 


r\ A 

DO 


D6 


££ JU~ 


ir U 


EF 


AD 


18 


2b 


EE 


18 


25 


n o o 
22 38 


AC 


18 


A C 


A A 

20 


fT A 

53 


23 


C9 


23 


££40- 


A A 

yu 


BC 


1 A 

18 


BC 


n a 

88 


CO 


60 


AO 






AD 


18 


25 


48 


20 


4 9 


24 


99 r a_ 

£ £ JU~ 


DCS 




Ui 


71 A 

AU 


O A 

uy 


9 A 


4 y 


A / 

£4 


77CO 


BD 


by 


A 

CU 


jb 


Ay 


2B 


BC 


8D 


A f A 

2260- 


— A 

CO 


BC 


SE 


CO 


30 


E0 


49 


68 


9 9 

££00- 




I7T7 

r t 


On 

9D 


8F 


CO 


DD 


8C 


CO 


2270- 


AO 


FF 


EA 


EA 


EA 


EA 


20 


CC 


/ / lr$ — 


A A 

£ i 


71 A 

Ay 


D5 


20 


C2 


23 


A9 


AA 




O A 

zu 


C£ 


23 


A9 


96 


20 


C2 


23 


i a a n 

££8y — 


Ji A 

Ay 


A T 

01 


EA 


20 


Bl 


23 


AD 


10 


99QA 

££\ yu— 




£U 


■- - 

Dl 


O A 

£ J 


AD 


iy 


a r 

25 


A A 

20 




Bl 


A O 

£ O 


AD 


18 


A C 

2 5 


4D 


19 


2 5 


9 *> a a 
/ / AU — 


/l A 

4 y 


A 1 

01 


f A 

48 


ft » 

4 A 


A A 

09 


AA 


9D 


8D 


-~) O ft o 

22AB- 


CO 


DD 


8C 


CO 


68 


09 


AA 


20 




CI 


A A 

23 


B A 

A9 


DE 


20 


C2 


23 


A9 


9 9- O O 


AA 


A A 
20 


C2 


A A 

23 


» A 

A9 


EB 


20 


C? 


LL CU 


9 ^ 
£ J 


B A 

AU 


a r 
U J 


A A 
£U 


D / 


A Q 

£ J 


71 A 

Ay 


D j 


9 9 AO 


9 n 


(-> A 


9 9 
£ i 


Ay 


A A 

AA 


a n 


f A 

C2 


A *1 

2 3 


££ \J\J 




ft n 


£U 


U£ 


'> ~j 
£ J 


71 f l 

AU 


i-> f~ 
JO 


DU 


9 9 no_ 




P A 

hA 


LA 


bn 


71 A 

Ay 


A r~ 

Jo 


T7 71 

bA 


EA 


99 fa 
££ EU — 


EA 


77 7A 

EA 


EA 




A p. 

nu 


CA) 




A A 


9 9 C Q 
££ to — 


r~ A 

cu 


bo 


r\ A 

DU 


ED 


r> A 

F0 


A "1 

01 


EA 


20 


9 9 it a 


C A 

3B 


r r 


T? 7\ 
£.A 


c-A 


On 

9D 


8D 


CU 


DD 


££ E O — 


D C" 
OL 


L.U 


bb 


UU 


T7 1 

r 1 


Ay 


a r 

yfe 


EA 




9A 


*A 

^-£ 


■9 T 
£ J 


a Q 

A3* 


n c 


£U 


C£ 


A T 
£ 3 


99 aa— 




MM 


"90 

■£ U 


AO 

£ 


9 9 
£ j 


a o 


t? Q 
CD 


9 n 
£ u 


?i in. 

£. J 1U* 


C£ 


9 3 
£J 


Ay 


17*17 


£U 


Lc 


£3 


A A 

AC 


9 9 1 fl 

£318- 


AH 

2 / 


a r 


20 


CE 


A A 

23 


EE 


19 


25 


2320- 


EA 


EA 


48 


68 


9D 


8D 


CO 


nn 


2328- 


8C 


CO 


4C 


2D 


23 


AD 


19 


25 


2330- 


C9 


10 


BO 


03 


4C 


79 


22 


48 



2338- 68 48 68 BD 8E CO BD 8C 
2340 CO 18 60 AE 1A 25 BD 89 
2348- CO BD 8K CO BD 8C CO A9 
2350- 30 AO 00 8D IB 25 8C 1C 
2358- 25 A9 00 8D ID 25 AD IB 
2360- 25 38 ED 1C 25 F0 30 BO 

2360- 04 49 FF 69 01 8D IE 25 
2370- ?F. ID 25 4E IB 25 2E ID 



A A A A 

2378- 


A C 

25 


A r-i 

OE 


ID 


25 


AC 


ID 


25 


B9 


2380- 


IF 


25 


20 


Al 


23 


B9 


20 


25 


9 9 D O 


A A 

£ U 


A T 

Al 


23 


a n 

yu 


A A 

4 y 


A A 

0/ 


A A 

AH 


CE 


£ jyu— 


IE 


A -\ 

£ D 


AD 


IE 


25 


DO 


E8 


AD 


A A ft rt 

2 398 — 


1C 


A c 

25 


ft A. 

8D 


1 A 

18 


25 


AE 


1A 


25 


£ JAU- 


bU 


UD 


1 A 

1A 


A C 

2b 


AA 


BD 


A T 

81 


CO 


23A8 


A9 


57 


20 


AO 


FC 


BD 


00 


CO 


9 9 n n 


f A 

bU 


A O 

4e 


A tt 

4A 


A A 

oy 


AA 


O A 


A rv 

hD 


CO 


23B8- 


DD 


8C 


CO 


68 


EA 


EA 


EA 


09 


2 JCU — 


AA 


EA 


EA 


A A 

4 8 


(*" A 

68 


9D 


8D 


CO 


£ JLo- 


n n 

DD 


OL. 


CU 


bU 


n n 

DU 


Ub 


n a 

DO 


0B 


2 3Du — 


EA 


A A 

20 


C? A 

58 


FF 


4C 


D7 


23 


EA 


A 1 r\ ft 

23D8- 


4C 


DB 


23 


EA 


A9 


FF 


9D 


8D 


A o f r\ 

£0E0- 


CO 


DD 


8C 


CO 


88 


DO 


E9 


EA 


23E8- 


EA 


60 


A9 


00 


8D 


5D 


25 


8D 


-~J 3 i 'H 

£.3r U- 


C A 

DA 


£3 


A L. 

AD 


1 /I 
IH 


8D 


5B 


25 


AD 


■A O f Q 


-I A 

12 


A C 

£D 


oD 


56 


A C 

£5 


AC 


62 


DE 


O a nn 
£*i UU" 


o o 


QQ 

yo 


A A 
^ A 


C A 

oA 


An 
UD 


1 A 

1A 


9 R 
£ D 


o n 
oD 


i4 Uo- 


5 y 


9 

£ -J 


A A 

AU 


A O 

Uo 


AD 


1 

18 


25 


OA 


9 A 1 At 
£ *i 111- 


A A 

UA 


A A 
UA 


on 
8D 


DC 


A C 

25 


A A 

90 


/\ A 

03 


EE 


24 lo- 


5D 


A C 

£0 


• 1 A 

20 


51 


25 


B0 


06 


EE 


9 /) 9 Ai 

242U- 


5C 


9 C 




nn 
DU 


F5 


f A 

60 


"» A 

AO 


01 


n tin 


BD 


A r~> 

8C 


CO 


C9 


FF 


DO 


F9 


88 


24 Ju- 


T A 

1 u 


F6 


BD 


A r— 

8C 


CO 


10 


FB 


C9 






f u 


J? / 


Afl 

I- O 


U-U 


An 

UU 


PA 


U / 








£D 


C f 1 

c U 


ipn 

EU 


*J o 
DO 


£ A 
fcU 




"7 ft ft Q 

244 b- 


f A 

o-U 


4o 


4A 


A A 

09 


AA 


A A 

99 


A A 

39 


2 5 


9d A Al- 


00 


AQ 

uy 


An 


Co 


QQ 


90 


9 R 
£ J 


CL A 

bu 


2458- 


A9 


81 


8D 


54 


25 


AO 


00 


8C 


9 ft C Al 


Ca 
DU 


9 R 
£ D 


A O 

Ay 


a u 
U5 


n t~i 
8D 


5C 


A C 

25 


Ay 


£.3 bo 


Aft 

U4 


A I 

yi 


9 9 


9 A 
£ U 


AQ 

Uo 


A C 

25 


CE 


5C 


2470- 


25 


A9 


03 


91 


73 


A9 


05 


AO 


0/ 9Q 
£^ / a - 


U2 


y i 


9 9 

/ 3 


9 n 

£ U 


AO 

Ua 


9 C 


CK 


.9 C 


9 ft H Ai_ 


A C 

£D 


Ay 


A /I 

U4 


A 1 

y i 


/ J 


A A 

AO 


00 


A9 


A ^ A O 

24 8«- 


A A 

02 


A T 

91 


A A 

73 


20 


08 


25 


A9 


FF 


9 ft OAj 


A A 

AU 


9 9 
££ 


A *l 

91 


9 9 

73 


A A 

88 


A A 

DO 


FB 


*» A 

A9 


24 98- 


01 


91 


73 


A9 


06 


8D 


5C 


25 


Q < » ri 
<£ h All — 


9 A 


A O 


A C 

STi 


A Q 


a i 

y l 




t~> A 

f_y 


A A 

DO 


9 d 7\ 8 
£4AO- 


r D 
f D 


Ay 


U3 


71 A 

AU 


A A 

U£ 


yi 


73 


Co 


9 /lT3Ai_ 
£ •* D\s — 




ft cs 


f A 
r U 


An 


9 Q 

£ y 


9 R 
£ D 


Q1 

y i 


9 9 


' J ft pa _ 
£ H DO — 


A£ 


nn 


DU 


9 ft 
£ A 


9 A 

£D 


AQ 
Co 


y i 


9 9 

/ 3 


9 AAA — 


DO 
Lo 


ll 


9 Q 

£ y 


9 R 
£ J 


nA 
DU 


c 4 


9 A 
£U 


A C 

U o 


9 / rfl 
£ "JLO - 


RET 


A9 1 
A£ 


A 9 


A A 
AU 


lr 


nn 


Q A 

yu 


r> n 


' j ft n/i 


yi 


. , -j, 
/ J 


do 


A 

CA 


1 A 

1U 


F / 


7* A 

A2 


a n 

b 




Aw 


9 A. 


a n 


A C 


A c 
CO 


yi 


"7 A 

/ 3 


A A 

o 


£ tLU — 


CA 


1 Aj 

xu 


t / 


A O 

Ay 


A 9 
U£ 


on 
oD 


DC 


9 R 
£ D 


A ft c>p _ 
£ *i C.O 


9A 
£U 


Aft 


7 A 

£ D 


A TT 

AC. 


A Q 
U 7 


9 1 
£ 1 


flc 
Ot 


c a 

DA 


£ H t U — 


9 ^ 
£ O 


A c 
Mil- 


AA 
UA 


9 1 
£ 1 




cn 


9 R 


1"* 17 

CL 


9 ft CQ _ 
£\ H t O — 


RA" 
DL. 


9 R 
£D 


9 A 
£U 


A Q 
Uo 


9 Q 
£D 


A* A 

CA 


CA 


Q r 

o E 


£5UU - 


DU 


9 

2D 


CE 


DC 


A C 

£5 


4C 


n a 

Uo 


A C 

2 5 


A C A Q 

/. hum — 


A A 


51 


A C 

£D 


A A 

yo 


A A 

02 


/" A 

68 


ft A 

68 


f A 

6 


A C I A 

£5 J.U - 


AU 


CO 

Do 


A C 

£b 


A A 

UU 


A it 

4 y 


4E 


^y 


D 4 


TCI A 

2518 - 


A A 
00 


A ft 

00 


A a 

00 


ft ft 

00 


A A 

00 


^ A 

oo 


00 


A A 

02 


9 R9 A — 

£ 3£U 


A A 


AC 


A A 
UU 


A £ 

U b 


A ft 1 
Ufl 


/A A 
U£ 


A A 

UU 


A A 

00 


A C A Q 

£ 3£ O 


a n 
UU 


A A 

UU 


A A 

£0 


A A 

20 


A A 

20 


A A 

20 


20 


20 


9 

£ j3U- 


9 n 

£U 


9 A 
£U 


9 A 
£U 


9 A 


9 A 
£U 


9 A 

2U 


9 A 

2U 


9 A 
£U 


£b3b — 


£U 


tA C 

OD 


AA 


y b 


AA 


AB 


00 


00 


2540- 


AA 


AA 


00 


00 


DE 


AA 


C3 


27 


2548- 


0D 


00 


00 


06 


00 


18 


OT 


00 


2550- 


00 


20 


00 


BF 


80 


58 


25 


60 


2558- 


03 


00 


00 


00 


00 


00 


20 





Pom's n° 20 



61 



Programme 

TDUMP.CODE.S 

(Assembleur Big Mac) 



rtwws X0UW 



11 • Copyright (C) 1965 Alexandre Avrane 



• Modllie: 2&/Q4/Sb 

• Cree: 07/01/85 



■ Assembleur: Big Mac 



20 
21 
22 



24 

25 
26 

27 
28 
29 
M 
71 
32 

33 
34 

35 
36 
37 



■ Objectlfs: 

* ■ 

* Fournit un dunp hexadeclmal/A5CII d'un 
flchler ProDOS 

* Syntaxes 
t 

' TDUMP <nom flcnleO [,S <slot>| [,D 
<drive>l 

* Environnement: ProDOS * Basic System 

* Integration: cde exieme Basic System 
• 

* MPinS de $100 octets 

* Arret moment anee par une couche, 
dfcflnitlf par ctrl-Q. 

■ 

■ Ce programme dolt it re chalne avec 

CHDLOAD pour etre 

* initialise comme une coirmande externe. 

* Source (Big Hac) : IKIT. TDOMP. S 

* Objet: INI T. TDOMP 



73 




LDA 


#>riH*3100 




76 




LDA 


f > ZONG 01 00 


77 


V_OLOCMO LDA 


BT3 




7B 










19 




LDA 


VPATH1 


pflineeu: vera 










cde ectuelle 


* A 

00 




STA 


PTR 




01 




LDA 


VFATI-.'.-I 




■ -a 




STA 


PTA-i-1 




83 




LDY 


#1 




84 


COMPAR 


LDA 


(PTA) ,Y 


uLfLieiil. UO oo;o 


4)S 




CMP 


COMMAHD-l,Y c'e-i- ™ TDUMP " T 


■ 




BNE 


NO_CHD 




•7 




INI 






90 




cey 


I5rl 




S9 






LUftrAK 




3)0 










91 


•1.2 * 


De.-aar.ae a prouus 


a' examiner la 


92 


sui t e 


ae i a 


C IT* nflf 












93 




DEY 






94 




DEY 






95 




sty 


XLEN 




yo 




LDA 


10 




97 




STA 


5Y5ERR 


in it lalise 










code erreur ML I 


aa 




S7A 


XCNUH 


indique cde oxt 


99 




LDA 


|%Q0000001 




100 




STA 


pbits 


nom de llcnier/ 










volume autorise 


. - . 




LDA 


1*00000100 




1C2 




STA 


PBITS*1 


slot i drive 










autorises 


1 C3 










104 


V SUI TE 


LDA 


SUITE 


vecteur de 










retour aprea 










ex amen 


105 




LDA 


V_SOITE+l 




106 




STA 


XTADDR 


indlque A Pro- 










DOS oil revenir 


107 




LDA 


V_S0TTE*2 




ioe 




STA 


XTADDR+1 




109 




CLC 




; indlque A Pro- 



39 ■ Adressos utiliseees: 



PTR 
HIMEH 

READ BUF = 



110 ars 

ill 

112 NO_CHD SEC 

113 JHP 



548 
S73 
5200 



vecteur terapora 



buffer de lec- 
ture de B/16 0. 



DOS que e'exait 
pour nous 



;cde 'n'etalt 
p«s pour nous 
(V OLDCMD+1) aliroentfc par 
CHDLOAD 



114 
115 
116 
117 



• l.J - Ouverture du lichier 



LDA VPATH1 



nom Eichler re- 



45 


PRTNTERR 




58E0C 


affiehe erreurs 








copie en paraot 


46 


VECTOUT 




SBE30 


routine sortie 


111 


STA 


SOPEN*l 




47 


XTADDR 




SBE50 


vectetur sortie 


119 


LDA 


VPATHW 












d'une cde exter 


120 


STA 


SOPEN+2 




41 


XT.T.H 




SBE52 


lo d'une cde ex 


121 








49 


XCNUH 




SBE53 


cde ProDOS 


122 


LDA 


HIMEH 




SO 


PBITS 




S3E54 


bits d'autori- 


123 


STA 


SOPEN+3 












sation parametr 


124 


STA 


SREAD'5 


(acc=0) 


51 


VPATH1 




SHE6C 


vecteur vers 


12.5 


STA 


OFFSET 












nom vol urns 


136 


STA 


OFFSET* 1 




52 


GOSYSTEH 




SBE7 


app«-l A PrnWK 


1 ?-} 


TDA 


RIKEH'l 












via Ba§lr. 'y'- 


129 


STA 


Sr>PRN+4 




S 9 


EC-PEN 




SBECB 


Cftbla d«« p«ra- 


130 
















reetreo de OPEN 


130 


LDA 


ISCfl 


code 0>EN 


54 


C READ 




SBEDB 


tabl* d*» para- 


131 


JSP- 


COSY STEM 












nAtI«l d* READ 


132 


BCS 


ERREUR 




55 


3C LOSE 




5DEDD 


tabic deo para- 


133 


LDA 


EOREN-E 


r*f recopi*. . . 










MteBea de close 


134 


STA 


SRSAD-1 


■n ptrimttrt 


56 


3Y3ERR 




sdfof 


code esicgr KL1 








du RKAOt. 



ALT BOARD 

ST KOBE 

PRBLZ 

K0KET 

CROUT 

PBNTXY3 

PRBYTE 

COOT 

RT5 



3CC0 
5CCIC 
1T94A 
9FD19 

ituat 

5t'D9 9 

SFDDA 
SFDED 
5FF58 



ORG 52100 



clavici 

tat clevlei 
aff x blor.ca 
■ L L cii L e clavioi 
envoi d'un cn 
arEicne I en 
en nexa eC 
airicne accucnui 
sortie oaracter 
contlent un RTS 

(CHDLOAD de 
52000 A 520FF) 



69 
70 



i 1.1 - VeriCie que la commande excerne 
est la not re 



CLD 



;necessaire 



72 START 

73 

74 ' Conventions) de link avec CHDLOAD: 



13S 
136 
137 

13B 
139 
140 
141 
142 
143 
144 
14S 
146 

147 
148 
149 

150 

151 
152 
153 



CTA ECLOEE-t-l at du CLOSE 

LDA |<READ DDF uciliac buffer 
S300 pour lire 

STA 3READ-2 
LDA t>READ_BUT 
STA SR£AD*3 

i.b - Boucle de leccure 



LDX 
LDA 
AND 

CMP 
BEO 
LDX 
STX 

LDA 
STA 

DEX 



lie 

v*ECT0UT + l 

■srg 

I SCO 

COL 

IS 

SBZAO+4 



conserve ie 
ler dean-occe; 
sort vers slot? 
□ul: SO col 

on lira 8 ou 16 
octets/'ligne 
caractere blanc 



154 




BNE 


BLANK 




155 










1SS 


LOOP 


LDA 


(SCA 


READ 


157 




JSR 


GOSYSTEH 




158 




BCC 


OX 




159 




CHP 


15 


fin du flchler? 


ISO 




BEO 


FINAL 


oui 


161 


ERBEL-R 


JMP 


PRlNTERR 




IS? 










163 


OK 


U>X 


OFFSET 




164 




LDY 


OFFSET* 1 




165 




JSR 


PRNTXY3 


affiehe adresse 
deoula le debuc 


1 &6 




LDX 


4>1 




1H7 




JSR 


HDU 




1*3 










169 




inv 


10 




1T0 




LDX 


SRKAD* 4 


nh H'nr.t A 1 1 rm 


171 




I. DA 






17? 




AND 


*S7F~ 




17 3 




CMP 


4S7R 




17 4 




BCS 


NORM 




17 5 




LDA 


** ' 


r»cpl ■fi* ira T*r.— 
tec* rV rnnrrM 


176 


NORM 


ORA 


*S80 


bit fori A 1 
pour COOT 


177 




J5R 


COOT 




17S 




DFX 






n s 




im 






180 




cpy 


SB?AD*fi 




181 




BCC 


LOOP1 




1?2 










18i3 




I NX 






1»4 




I NX 






1 95 




LDY 


10 




1*6 




BEO 


CONT 


-7«P 


1B7 


LOOPS 


LDX 


#1 




laa 


CONT 


JER 


PRBL2 


affiohe I blinc 


1*9 




LDA 


R£AD_BOF, Y 




190 




JSR 


rnoyrE 


affiehe UA 6dt 


1»1 




INY 






192 




CPY 


2 READ < 6 


dernier ciricEe 


193 




BCC 


LOOP 2 


non 


194 










193 




JSR 


CROUT 


fin de la Ligne 


19« 




LDA 


SAEAD-4 


MA J aUxea dcl>ut 


197 




CLC 






199 




ADC 


orrsET 




199 




STA 


UVflSUU 




2UU 




LUA 






^01 




ADC 


f 




IM'l 




31 A 






203 










204 




LDA 


KEYBOARD 




zos 




UPL 


LIAJP 




2D6 




STA 


STHOBE. 




207 




LDA 


ISA0 




208 




J5R 


RDKEY 




209 




CMP 


#591 


ctrl-Q ? 


210 




BNE 


LOOP 




211 


FINAL 


LDA 


I5CC 


CLOSE 


212 




JMP 


GOSYSTEM 




213 










214 


■ Variables 






215 










216 




BRX. 






217 


COKMAND 


ASC 


1 TDDMP * 




218 


OFFSET 


DA 







229 










220 


FI» 




* 




221 


LONG 




FIN-START-S100 


232 




LST 


ON 




223 




END 







Recapitulation 

TDUMP. CODE 



READ BUF-l.X 



2100- 


DB 


A9 


23 


A9 


01 


AD 


58 


FF 


2108- 


AD 


6C 


BE 


85 


48 


AD 


6D 


BE 


2110- 


85 


49 


AO 


01 


Bl 


40 


D9 


17 


2118- 


22 


DO 


2D 


C8 


CO 


06 


90 


F4 


2120- 


88 


88 


8C 


52 


BE 


A9 


00 


8D 


2128- 


OF 


BF 


8D 


53 


BE 


A9 


01 


8D 


2130- 


54 


BE 


A9 


04 


8D 


55 


BE 


AD 


2138- 


4C 


21 


AD 


38 


21 


8D 


50 


BE 
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6C 


DE 
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CD 


at 
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ft J 


/ 5 


oD 


CE 


BE 


O rs 

oD 


DA 


BE 


o t cn 


eSU 
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_LU 


9 


oU 
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It 


99 
££ 


Ab 


9 *l 
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£ 1 OO 


un 
CD 


f"*F 

Lr 
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DC. 
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Ay 


Co 


9 f\ 
£\J 


/u 


OU 1 

Bh 
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BO 


"3 


AD 


DO 


DE 


nn 

8D 
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DG 


BE 
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Qn 
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nr 
Ub 


D D 


Ay 


nni 


on 
oD 


D / 


D O 

BE 


£ 1 OU — 


ft? 


no 


ft Pi 


it 

UO 


or 
DL 


A^ 


1 A 


ti rs 

AD 


A 1 O O — 




Dp 


9 


en 
r U 






r U 


A A 

U ti 




A'? 


flH 


OIL 


uy 


DC. 


Ay 


AU 


Qn 

yu 




r t 


n i 

U 1 


v^A 


UU 


T~i 71 

L" A 


Ay 


CA 


A A 

£V 


£ IAU — 


/U 


oh 


y u 


U / 


cy 


U j 


n* A 
FU 


6A 


o i Tt a _ 




UC 


BE 


AE 


ID 




AC 


IE 


9 1 on — 


99 


9> A 


□ Q 


TT pi 


J\ 9 
Ail 


A 1 

Ul 


9 r\ 


/ A 

'J A 


£ iDO ** 


r y 


AU 


UU 


Ah 


D» 


BE 


o Q 

By 


A A 
UU 


9 t r^n — 


pT19 












A O 


a? 






no 
uy 


o n 


9 n 


on 


c u 


r* A 


Co 


£ ±UKJ — 




DB 


BE 


yu 




Eo 


r-> O 

Eo 


Ji A 

AO 


9 1 r>fl_ 


on 


r U 




A 9 




9 r\ 

£ U 


A A 
<1 A 




t y 


^lEU- 


ti f\ 

B9 


00 


02 


20 


DA 


FD 


C8 


CC 


21E8- 


DB 


BE 


90 


EF 


20 


8E 


FD 


AD 


21F0- 


D9 


BE 


18 


6D 


ID 


22 


8D 


ID 


21F8- 


22 


AD 


IE 


22 


69 


00 


8D 


IE 



2200- 22 AD 00 CO 10 97 8D 10 
2208- CO A9 AO 20 10 FD C9 91 
221 Q- DO 8R A9 CC AC 70 BE 00 
2218- 54 44 55 4D 50 00 00 20 



Programme CMDUNK 

1 REM " LINK COMKWNDE EXTERNE " 
10 D$= CHR$(4) 

1 5 TEXT : HOME : PHUT "LINK COMMAND 

E EXTERNE" 
20 PRINT : INPUT "COMMANDE EXTERNE 

ACHAINER:":C$ 

25 IF NOT LEN (C$) THEN END 

27 PRINT "CHARGE "C$". CODE..." 

30 PRINT D$"BLOAD'C$'.LOAD,A$2100" 

35 A* PEEK (8452)- REM $2104 

37 PRINT "CHARGE CMDLOAD..." 

40 PRINT D$"BLOAD CMDLOAD,A$2000" 

44 ONERR GOTO 46 

45 PRINT D$'CREATE"C$',T$F0 B 

46 POKE 21 6,0 

48 PRINT "SAUVE "C$ 
50 PRINT D$"BSAVE"C$",A$2000,L'256* 
(A + 2)-,T$F0- 



Programme IN1T.UNK 

1 REM* LfNK COMMANDE INIT* 
10 D$- CHR$(4) 

1 5 TEXT : HOME . PRINT 'LINK COMMAND 

E INIT- 
IO PRINT : PRINT "CHARGE INIT.CODE0 

20 PRINT D$"BLOAD INIT.CODEO": REM 
$2100 

23 FOR I - TO 33: READ D: POKE 768 + 
I.D: NEXT 

24 POKE 798. PEEK (8457): POKE 799, 
PEEK (8458) - 2 

25 A * PEEK (8457) + 256 ' PEEK (8458) - 
512: REM $2109 

26 PRINT : PRINT "PLACEZ UNE DJSQUE 
TTE PRODOS" M "ENSLOT6, DRIVE 1 
->";:GETZ$ 

30 CALL 770: IF PEEK (768) THEN PRINT 

"ERREUR...": END 
40 B = A+ 1024-2 , 4096 
45 PRINT : PRINT "SAUVE INIT.CODE ..." 
50 PRINT D$"BSAVE INIT.CODE,A$2100, 

L"A - 7424 

90 DATA 0.1.32.0,191.128.28.3,141,0.3. 
208,14,236,32,3,238,31,3,236,31,3,20 
6,1,3, 16.231,96,3,96,0,0,0,0 



Vos textes en direct de votre ordinateur 
a nos photocomposeuses 

Gain de temps et economie Les textes de vos articles, catalogues. 

annuaires ou brochures saisis sur 
votre micro-ordinateur son! envoyes 
directement sur nntre 
photocomposeuse 




i.9* text« de vob 
articles, 
cslaloguea, 
annuaires 

ou brochures 
sail Is sur voire 



Vous 



Nous 



cfl 



PHOTOCOMPOSITION - BUHEAUTIQUE - THANSMfSSION DE OONNEES - GESTI0N DE FICHIERS - MATEfllELS OE TRAITEMENT 0E TEXTES 

13 et 15, avenue du Petit-Parc - 94300 VINCENNES 



Nous vous evitons ainsi, 
le cout et le temps de la saisie 
supplementaire que 
ncccssitc Ic traitcmcnt 
traditionnel de la photocomposition 
avant I'irnpression des documents. 

Si vous le desirez nous pouvons 
egalement nous charger 
de ('impression et du brochage. 
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DeCalages... 

Pascal Cantot 



Les instructions de 
decalage et rotation du 
langage machi-ne 
6502 : ASL, LSR, 
ROL, et ROR, permettent bien 
des choses. Leurs fonctions sont 
les suivantes : 

• ASL : decalage a gauche d'un 
octet. Tous les bits sont dccalcs 
d'une position vers la gauche. Le 
bit 7 va dans la retenue (C) et un 
zero entre par le bit 0. Par 
exemple, si l'accumulateur 
contient la valeur %01010011 
($53), une instruction ASL 
donnera 10100110 (SA6), avcc 
C=0. 

• LSR : decalage & droite d'un 
octet. C'est le meme principe, 
mais dans 1'autre sens : les bits 
sont decales vers la droite, C 
contient le bit ct lc bit 7 est k 
zero. 

• ROL: Rotation a gauche d'un 
octet. L'effet est le meme que 
ASL, a ceci pres que le bit 
prend la valeur de C avant le 
ROL : si l'accumulateur contient 
%01010011 ($53) et la retenue 
est £ 1, un ROL donnera 
%10100111 ($A7). II ne s'agit 
done pas d'une vraie rotation, 
puisque le bit 7 sortant ne va pas 
remplacer le bit 0. Mais cela peut 



etre obtenu par : 

CMP #$80 ; Rit7->C 
ROL 

Le CMP #$80 positionne C b 1 si 
l'accumulateur contient un octet 
sup^rieur ou 6gal a 580, 
e'est-ii-dire negatif, ou encore 
dont le bit 7 est & 1 . Inversement, 
si cet octet est positif (bit 7 a 
zero), C=0. Le ROL qui suit 
effectuera alors une vrai rotation. 
Cette methode peut etre utilisee 
pour coder des donn6es sur une 
disquette, et empecher deven- 
tuels curieux de les lire et ies 
modifier avec un utilitaire genre 
DISKFIXER, CIA ou MOBBY 
DISK. L'utilisation d'un EOR 
#$AA est devenue classique. 

• ROR : Meme principe, mais 
dans 1'autre sens : l'octet est 



decale & droite, C entre par le bit 
7, et le bit sort et va dans C. 

Ici, effectuer une rotation 
complete est plus complexe, car 
on ne peut tester le bit d'uu 
octet directement. On peut faire : 

PHA ;Sauvegarde 

l'accumulateur 
LSR ;Bit0->C 
PLA ;Restatire 1'acc. C 

contient toujours bit 
ROR ;Et 1'ex-bit prend sa 

place au bit 7 

Voir "Initiation & I'assembleur" 
(POM'S 14). 

Les decalages ont de nombreuses 
applications. La principale, la 
multiplication cntierc, a deja ete 
traitee par Gerard Michel, ainsi 
que le test de bits. 



Source ZOOM 


24 


HPCSN 




SF411 


51 


LDA 


HBASE 














52 


STA 


HBASE1 


(Assembleur Merlin) 


26 








53 


LDA 


HBASE+l 






27 




ORG 


5300 


54 


EOR 


#560 




28 




03J 


5300 


55 


STA 


HBASF.1 + 1 


2 * 


* 


29 








56 


DEC 


DLINE 


3 * AGRANDTSSF.MFNT D MINK * 


30 








57 


LDA 


DLINE 


4 - 


IMAGE HGR * 


31 


GET? ARM 


JSR 


CHKCCM 


58 


JSR 


HPOSN 


5 * 




32 




JSR 


GETBYT 


59 


LDA 


HBASE 


6 - (C) 


Pascal CANTOT * 


33 




CPX 


#21 


60 


STA 


HBASE 2 


7 * 


04/05/85 * 


34 




BCS 


ILQERR 


61 


LDA 


HBASE+l 


8 * 




35 




STX 


XTAB 


62 


EOR 


#$60 






36 




JSR 


CHKCOM 


63 


STA 


HBASE 2+1 


10 




37 




JSR 


GETBYT 


64 


DEC 


DLINE 


11 




38 




CPX 


197 


65 


LDA 


CNTR 


12 CNTR 


S18 


39 




BCS 


TLQF.RR 


66 


JSR 


HPOSN 


13 DUNE 


519 


40 




STX 


YTA0 


67 


LDA 


HBA5S 


14 HBASE 


S26 


41 








fifl 


CLC 




15 HMA3K 


530 


42 


MAGNIFY 


LDA 


YTAB 


69 


ADC 


XTAB 


16 LINN UM 


S50 


43 




CLC 




70 


STA 


HBASE 


17 XTAB 


SFA 


44 




ADC 


#95 


71 


LDY 


#19 


18 YTAB 


SFB 


45 




STA 


CNTK 


72 MAGN2 


LDA 


(HBASE) ,Y 


19 HBASE1 


$FC 


46 




LDA 


#191 


73 


PHA 




20 HHASK2 


5KB 


47 




STA 


DLINE 


/4 


AND 


moooooo 


21 




48 








75 


STA 


HMASK 


22 CHKCOM 


SDEBE 


49 


MAGN1 


LDA 


DLINE 


76 


PLA 




23 GETBYT 


SE6F8 


50 




JSR 


HPOSN 


77 


JSR 


DSHIFT 
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Les deux programmes presentes 
ici sont bases sur les decalages et 
les manipulations de bits : le 
premier les utilise pour compter 
des bits : il s'agit de FREDISK, 
qui donne le nombre de secieurs 
libres sur une disquette. Cela 
pennet de voir s'il est possible de 
sauvegarder un fichier, mais 
aussi de controler faciiement 
l'existence ou non d'un drive, ou 
la presence d'une mauvaise 
disquette. Le second illustre bien 
la puissance de ces instructions : 
il s'agit de ZOOM, agrandit une 
partie d'une image HGR au 
double de sa taille. On peut 
realiser des effcts de 
grossissement (voir DEMO 
ZOOM), mais aussi des 
generiques HGR courts et 
eslheliques. 

FREDISK 

Mode d'emploi 

Aprcs avoir fait "BRUN 
FREDISK^ Instruction USR 
est revectorisee. II suffit alors 
d'un "PRINT USR(X)", ou f X' 
est le numgro du lecteur (1 ou 2). 
Tout autre valeur entraine un 
"ILLEGAL QUANTITY 
ERROR") pour connaitre le 



78 


TYA 




79 


PHA 




80 


AGL 




81 


TAY 




82 


LDA 


LINNUM 


S3 


ORA 


HMASK 


84 


STA 


<HBASE1) , Y 


85 


STA 


(HBASE2) i Y 


86 


TMY 




87 


LDA 


LINNUM+1 


88 


ORA 


HMASK 


89 


STA 


(HBASE1 ) , Y 


90 


STA 


CHBASE2KY 


91 


PLA 




92 


TAY 




93 


DEY 




94 


BPL 


MAGN2 


95 






96 


LDX 


CNTR 


97 


BEO 


MAGNEND 


98 


DEX 




99 


STX 


CNTR 


100 


CPX 


YTAD 


101 


BCS 


KAGN1 


102 






103 MAGNEND 


RTS 




104 







nombre de secteurs libres sur la 
disquette sc trouYant dans le 
lecteur X. En cas d'erreur de 
lecture (disquette vierge, par 
exemple), il y a un "Bip" et 
FREDISK retourne la valeur -1. 

Le secteur de la piste 51 1 d'une 
disquette DOS 3-3 (VTOC dc la 
disquette), contient, entre autres, 
unc sortc dc "carte" des secteurs 
(octets $38 a SCO), chaque 
secteur etant represente par un bit 
et chaque piste par deux octets 
(les seize bits des seize secteurs 
qu'elle contient) plus deux octets 
a (peut-etre Apple avait-il prevu 
un eventuel doublement de la 
capacite de ses lecteurs). 

Le principe de FREDISK est 
simple : grace k la routine RWTS 
du DOS, il va lire ce secteur, puis 
compter les bits qui sont & 1 
(=secteur libre) de l'octet $38 a 
l'octet SCO. 

Voici la procedure : tout d'abord, 
on charge la VTOC en 5B3BB 
(emplacement qui lui est 
normalement reserve par le DOS) 
en tenant compte du lecteur 
specific. Ensuitc, on prend un 
paire d'octets sur deux de $38 S 
$C0. On charge chaque octet 
dans Vaccumulateur (routine 
GETBYTE) puis on appelle 



105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
1 7? 
123 
124 
125 
126 
127 
128 
129 
13U 



SHIFT, qui retourne le nombre 
de bit h 1. II suffit alors d'aj outer 
ce resultat & un compteur, puis de 
continucr jusqu'au 35eme octet. 
Alors, le compteur contiendra le 
uornbre de secteurs libres. 

SHIFT commence (ligne 85) par 
reinitialiser un compteur, 
BITCNTR, qui contiendra le 
nombre de bits qui sont a L 
Ensuite, une boucle est executee 
huit fois. A chaque fois, A est 
decale. Le bit sortant va dans la 
retenue C. Puis, C est test£ : si 
elle est & 1, on incremente 
BITCNTR. Et on boucle huit 
fois... 

A la fin, on a teste tous les bits de 
A et BITCNTR contient le 
nombre de bits qui etaient & 1. 

Ce procede est tres utile, car il 
perrnet d'analyser les "BIT 
MAPS", comrae une VTOC, unc 
image HC1K (compteur de 
collisions du Basic lors du dessin 
d'une forme), la MEMORY MAP 
du ProDOS, etc... 

ZOOM HGR 

II s'agit d'un programme qui 
agrandit unc image HGR, en 
mettant le resultat de cet 
agrandissement dans l'autre page 



ILQSRR 



LDX #53 
JMP SD412 



Hecapituiation 

ZOOM 



USHlfcT LDX #0 



SHFT1 



STX 


LINNUM 


0300- 


20 


BE 


DE 


20 


F8 


E6 


EO 


15 


STX 


LINNUMt 1 


0308- 


BO 


7A 


86 


FA 


20 


BE 


DE 


20 






0310- 


F6 


£6 


EO 


61 


BO 


6E 


86 


FB 


LDX 


#7 


0318- 


A5 


FB 


18 


69 


5F 


85 


18 


A9 


AS 




0320- 


BF 


85 


19 


A5 


19 


20 


11 


F4 


PUP 




0328- 


A5 


26 


8b 


FC 


A5 


27 


49 


60 


JSR 


ROLINNUM 


0330- 


85 


FD 


C6 


19 


A5 


19 


20 


11 


PL? 




0338- 


F4 


A5 


26 


85 


FE 


Ab 


2 7 


49 


JSR 


KULiNNUrt 


0340- 


60 


85 


FF 


C6 


19 


A5 


18 


20 


DEX 




0348- 


11 


F4 


A5 


26 


18 


65 


FA 


85 


HPL 


SHFT1 


0350- 


26 


AO 


1 3 


R1 


26 


48 


29 


80 


JSR 


ROLINNUM 


0358- 


05 


30 


68 


20 


89 


03 


98 


48 


LSR 


LINNUM 


0360- 


OA 


A8 


A5 


50 


05 


30 


91 


FC 


RTS 




0368- 


91 


FE 


C8 


A5 


51 


05 


30 


91 






0370- 


FC 


yi 


FE 


68 


A8 


88 


10 


DB 






0378- 


A6 


18 


FO 


07 


CA 


86 


18 


E4 






O380- 


FB 


BO 


AO 


60 


A2 


35 


4C 


12 


ROL 


LINNUM 


03BR- 


D4 


A2 


00 


86 


50 


86 


51 


A2 


ROL 


LINNUM+1 


0390- 


07 


OA 


08 


20 


A3 


03 


Zb 


20 


RTS 




0398- 


A3 


03 


CA 


10 


F4 


70 


A3 


03 






3AO 


46 


50 


GO 


26 


50 


26 


51 


60 
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HGR (cela a plusieurs avantage : 
un zoom continu si on "switche" 
les pages APRES l'agrandis- 
sement, et la possibility de 
realiser quatre images HGR a 
partir d'une seule, en 
agrandissant success ivement 
chaque quart de Tim age. 

Chaque point doublera en hauteur 
et en largeur, e'est h dire qu'il 
deviendra un carre de 2x2 pixels. 

Pour lancer le programme, il 
suffit d'un "BLOAD ZOOM" (il 
se charge en $300), puis d'un 
"CALL 768,X,Y" ou X,Y sont 
les coordonnees du coin 
superieur gauche du quart 
d'image S agrandir : X est le 
numero d'octet, done compris 
entre et 20 (s'il est superieur a 
20, il y a une erreur, car le bord 
droit est alors en dehors de 
l'ccran), et Y le numero de la 
ligne (de & 96). 

Nous allons maintenant analyser 
le traitement que subit chaque 
octet de la page HGR doubler 
horizontalement (verticalement, il 
suffit de dedoubler la ligne). 

Le probl£rne est de dedoubler 



chaque bit, pour obtcnir le 
resultat sur deux octets, tout en 
conservant le bit 7 (couleur). 

Ainsi, si on a un octet 
% 100 101 00, ^ faudra retourner 
% 100001 10 10110000 ; analy- 
sons DSHIFT, a la ligne #1 10 du 
source : 

A contient l'octet. Auparavant, 
HMASK a ete mis * %10000000 
ou %00000000 selon le bit de 
couleur. L1NNUM (deux octets) 
est remis & 0. C'est lui qui 
contiendra le resultat. Puis 
SHFT1 est execute huit fois. A 
chaque fois, l'accumulateur est 
decale, et le bit sortant va dans C. 
Le registre d'etai (done C 
egalement) est sauvegarde par 
PHP, et on appelle ROLINNUM, 
qui effectue le decalage sur 16 
bits de LINNUM. La retenue 
entre done dans LINNUM par le 
bit 0. Puis intervient la subtilite : 
on restaure la retenue (modifiee 
lors du decalage 16 bits) par PLP 
et on repete l'operation. Ainsi, le 
bit sortant de l'accumulateur se 
retrouve dedouble dans 
LINNUM. II reste a boucler huit 



fois. 

Ensuite, il s'agit de restaurer 
correctement le bit de couleur, 
car, bien que le zoom transforme 
tout point en couleur en point 
hlanc par son dedoublement, il 
faut bien penser au fait que, pour 
l'Apple, il existe deux blancs et 
deux nous differems, bien 
qu'ayant la nieme apparence. 
Aussi, il faut en tenir compte, au 
cas ou l'utilisateur voudrait tracer 
des lignes sur 1'image agrandie. 

Le bit de couleur est dedouble 
dans les bit 15 et 14 de 
LINNUM. Un appel a 
ROLINNUM le restreint au bit 
15. Le bit de couleur du second 
octet est done bien ajust£. Au 
deuxi&rne maintenant... On decale 
vers la droite le premier octet (le 
bit 0, qui est "ejecte", vient de 
l'operation precedente), liberant 
ainsi le bit 7 (qui est alors & zero). 
Ensuite, le programme principal 
effectue un ORA HMASK qui 
retablit le bit de couleur originel 

a 



Programme 

DEMO ZOOM 

20 ZOOM = 768 

30 HOME: VTAB24: HGR2 

40 Charger id une image graphique 

en $4000 
50 FOR I = 1 TO 1 000: NEXT : FOR 

1 = 1 TO3 
60 FORJ = 1TOOSTEP -1 
70 CAl l 70,5 + 1 V5,40 
80 POKE - 1 6300 + J, 0: POKE 

230,32 + 32* J 
90 NEXT : NEXT : FOR 1= 1 TO 

500: NEXT 
100 POKE • 16301,0: INPUT "EN 

CORE (O/N) ?";A$ 
110 IF ASC (A$) = 78 THEN TEXT 

: HOME : END 
120 RUN 



Recapitulation 

FREDISK 

Pour uriliser FREDISK, /aire 
BRUN FREDISK 

puis 

A=USR(DRIVE) 
avec DRIVE = 1 ou2. 

9500- A9 4C 85 OA A9 0D 85 0B 

9508- A9 9b Bb OC 60 20 FB E6 

9510- 8A F0 09 E0 03 BO 05 8E 

9518- EA B7 DO 03 4C 99 El A9 

9520- BB 8D C3 AA A 9 B3 80 C4 

9528- AA 20 8D 95 90 OA A9 FF 

9530- AO FF 20 F2 E2 4C 3A FF 

9538- A9 00 8D 8B 95 8D 8C 95 
9540- AO 38 20 59 95 C8 20 59 
9548- 95 C8 C8 C8 CO C4 DO F2 
9550- AD 8C 95 AC 8B 95 4C t'2 
9558- E2 B9 BB B3 20 6F 95 18 
9560- 6D 8B 95 8D 8B 95 AD 8C 
9568- 95 69 00 8D 8C 95 60 8E 
9570- 8A 95 A2 00 8E 89 95 A2 
9578- 08 OA 90 03 EE 89 95 CA 
9580- DO F7 AD 89 95 AE 8A 95 
95B8- 60 00 00 00 00 A9 11 8D 
9590- EC B7 A2 00 8E ED B7 8E 
9598- £B B / E8 BE F4 B7 A9 BB 
95A0- 8D F0 B7 A9 B3 8D Fl B7 
95A8- A9 B7 AO E8 4C B5> B7 



Source FREDISK 

(Assembleur Merlin) 
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■* 




* 
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K 


FRF. 


n t s k * 


4 
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•k 




* 


6 




rascal 


CAN TOT * 
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* 


8 




9 








10 








11 


USR 




SOA 


12 


ADRVTOC 




SAAC.l 


13 


VTOC 




SB3BB 


14 


GIVAYF 




$E2F2 


15 


CONINT 




SE6FQ 


16 








17 








18 




ORG 


S9500 


19 




OBJ 


$9500 


20 








21 


TNTTFRF. 


IDA 


#$4C 


22 




STA 


USR 


23 




LDA 


IFRFOTSK 


24 




STA 


USR+1 


25 




LDA 


*>FREDISK 


26 




STA 


USR +2 


27 




RTS 
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Micro - informations 

Jean-Michel Gourevitch 



"TL "T e drapeau de 1' Apple // 
/ flotte au dessus de 
/ W Cupertino. C'est la 
M. t consequence la plus 
visible de la reorganisation en 
forme de revolution de palais qui 
a secoue Apple. Exit Steve Jobs : 
avec la mise & l'ecart du pere 
fondateur, la priorite donnee a 
l'equipe chargee de developper le 
Macintosh a brusquement cesse. 
Les "parias", qui s'occupaient du 
// (qui fournit toujours a Apple 
l'essemiel de ses ressources) 
tienncnt dcsormais lc pouvoir. 
Sauront-ils moderer leur revan- 
che, ct ne pas etouffcr les 
specialistes du Mac ? De cette 
question dependra probablement 
l'avenir d'Apple comme cons- 
tructeur independant de micro- 
ordinateurs. 

En attendant, c'est une veritable 
salve de nouveautes, concernant 



Suite de Fredisk 
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29 


*********************** 


30 








31 


FREDISK 


JSR 


CONINT 


32 




TXA 




33 




BEQ 


FRERR 


34 




CPX 


ta 


35 




BCS 


FRERR 


36 




STX 


SB7EA 


37 




BNE 


RDVTOC 


38 


* 






39 








40 


FRERR 


JMP 


5E199 


41 








42 


KUVTUC 


LDA 


IVTOC 


43 




STA 


ADRVTOC 


44 




LDA 


$>VTOC 


45 




STA 


ADRVTOC+ 1 


46 




JSR 


READVTOC 


47 








48 




BCC 


SCANNER 


4* 




LDA 


»SFF 


50 




LDY 


jISFF 


51 




JSR 


GIVAYF 


5? 




JMP 


SFF3A 


53 








54 


SCANNER 


LDA 


10 


55 




STA 


CNTR 



T Apple tl t qui va probablement 
faire cet automne la joie des 
lecteurs de Pom's, toujours fanas 
de l'ancetre, avec, pour commen- 
cer, le lecteur de disquettes (trois 
pouccs ct demi comme celles du 
Macintosh) qui viendra relayer 
l'antique lecteur de 143 Ko. Ce 
lecteur (de la taille du lecteur 
externe du Macintosh, et de la 
couleur de l 1 Apple lie) fabrique 
par Sony (et baptist Liron) est 
capable de stocker 800Ko sur les 
deux faces d'une disquette de 
trois pouces et demi. Les lecteurs 
de Pom's ont pu faire sa 
connaissance dans cette meme 
rubrique du precedent numero. 
L'appareil (utfiisable sur Apple He 
et //e) serait rebaptise Unidisk 
3.5. Prix espere : moins de 4000 



56 




STA 


CNTR+1 


57 




T.DY 


#538 
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SCANLUP 


JSR 


GETBYTE 


60 




INY 
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JSR 


GETBYTE 
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INY 




63 




INY 




64 




INY 
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CPY 


#5C4 
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RNP 


SCANLUP 
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T.DA 


CNTR+1 


69 




LDY 


CNTR 


70 




JM? 


GIVAYF 


71 








72 








73 


GETBYTE 


LDA 


VTOC, Y 


/4 




JSR 


SHIFT 


75 




CLC 




76 




ADC 


CNTR 


77 




STA 


CNTR 


78 




LDA 


CNTR+1 


79 




ADC 


#0 


80 




STA 


CNTR+1 


81 




RTS 




82 








83 
84 














85 


SHIFT 


STX 


REGX 


86 




LDX 


#0 


87 




STX 


BITCNTR 



Francs. A rioter qu'une version 
"Duodisk" (avec deux lecteurs et 
1,6 Mega-octet) est utilisee par 
les developpeurs travaillant sur 
produits Apple aux Etats-Unis. 

La deuxi^me nouveaute attenduc 
est une carte d'extension de 
memoire. A l'image de la carte 
d'Applied engineering, mais 
vendue par Apple, elle permet 
d'etendre la memoire vive de 
1' Apple lit jusqu'& 1 Mega-octet. 
Plus que le Mac ! 
Et ga n est pas tout. La revue 
InfoWorld, generalement bien 
informee sur le dessous des 
cartes (d'extension) en a encore 
recense d'autres. Celle notam- 
ment permettant de connecter 
1* Apple // au reseau Appletalk, lui 
ouvrant ainsi des possibilities de 
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LDX 


#6 


89 








90 


SliFTLUF 


ASL 




91 




BCC 


SHIFT1 


92 




INC 


Q1TCNTR 


93 


SHIFT1 


DEX 
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BNE 


SHFTLUP 


95 








96 




LDA 


BTTCNTR 


97 




LDX 


REGX 
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RTS 




99 








100 


3ITCNTR 


HEX 


00 


101 


REGX 


hex 


00 


102 


CNTR 


HEX 


0000 


103 








104 








1 05 








106 


READVTOC 


LDA 


#311 


10*7 




STA 


SB7EC 
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LDX 


#0 


109 




STX 


SB7ED 


110 




« 


SD7ED 


111 




INX 




112 




STX 


SB7F4 


113 




LDA 


#VT0C 


114 




STA 


SB7F0 


115 




LDA 


#>VTOC 
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STA 


SB7F1 


117 




LDA 


#SB7 


118 




LDY 


#SE8 


119 




JMP 


SD7D5 
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communication avec le Macintosh 
(c'cst banal) ct avec l'IBM PC (5a 
Test moins). 

Reste qu'avec leurs baisses de 
prix, les IBM et compatibles (et 
notamment le Tandy) sont 
pratiquement au meme piix que 
1' Apple //. Comment concurren- 
cer ces 16 bits ? Avec (probable- 
ment 1'annee prochaine), la 
version "16 bits" de I'Apple //, le 
yaisseau fant5me de la micro- 

informatique : tant de fois annon- 
ce (notamment dans cette 
rubrique) et dementi avec la 
meme Constance par Apple. 
L'Apple 16 bits, un reve ? 
Accrochez-vous : ce reve est deja 



realite. Grace a deux cartes 
d'extension. 

La premiere, la MAX 816 de 
Micro Magic, contient un 
processeur 65816 cadence a 4 
Mhz. La carte contient en plus 
256K de memoire vive (extensi- 
ble a 1 Mega-octet, mais le 
processeur peut adresser 16 
Megas). Pour faire fonctionner le 
processeur, Micro Magic a 
developpe un sysifcme d'exploita- 
tion : le MAX OS, base sur le 
systeme UNIX etprevoit d'ajou- 
ter a 1'Apple une carte graphique 
(1024 x 1024 points) et un 
controlcur pcrmcttant de gerer la 
memoire vive en disque virtue]. 



Une autre carte 65816 disponi- 
ble, celle de Com Log, toume 
moins rapidement (1 Mhz), mais 
pour 395 dollars seulement. 

Autre nouveaute annoncee par 
InfoWorld : une imprimante Ima- 
ge Writer II comprenant notam- 
ment un chargeur de papier 
automatique (fonctionnant aussi 
avec le Macintosh). 

Pour lutter contre la concurrence, 
l'ensemble de la gamme Apple 
connaitra des baisses de prix 
sensibles (aux Ktats Unis, les 
prix aux revendeurs ont deja 
baisse cet ete de 4%. Ce ne serait 
qu'un debut). 



Et le Macintosh ? 

S'interessera-t-on encore au 
Macintosh chez Apple, avec cette 
avalanche de nouveautds pour 
1'Apple // ? Probablement. 
Apple a ferme I'usine qui devait 
construire les disques duxs. II 
faudra done que Cupertino ait 
recours k la concurrence pour 
fournir : 

• un disque dur serveur (plus de 
20 Megas) pour l'utilisation au 
bureau avec le reseau Appletalk 

♦ un disque dur de 10 3 20 
Megas pour le Macintosh (les 
pourparlers continuent avec 
General Computer Co pour 
1'eventuel montage de l'Hy- 
perdrive dans le Mac, mais 
plusicurs fabricants sont en 
competition). 

Par contre, e'est chez Apple que 
sont actuellemem mises au point 
de nouvelles ROM perraettant la 
gestion d'informations stockees 
sur disques laser "compact disk" 
et une nouvelle version du 
Finder, encore plus rapide que la 
version 4.1. Les nouveaux 
lecteurs de disquettes double face 
(8OOK0) seront eux aussi 
rapidement disponibles pour le 
Macintosh. 

Par ailleurs, on etudie de 
nouvelles versions du Macintosh. 
Un Mac ham de gamme "ouvert" 

permettant l'insertion aisee de 
cartes d'extension et de disque 
dur serait sur la tabic h dessin, 



ainsi que le "projet Jonathan" : un 
Mac avec ecran couleur et modem 
integre. 

Une partie de toutes ces 
nouveautes serait distillee d'ici a 
la fin de raulomne. Le Mac haul 
de gamme, et 1'Apple // 16 bits 
pourraient etre officiellement 
annonccs cn janvier, lors de la 
traditionnelle assemblee des 
actionnaires d'Apple. lis seraient 
alors disponibles en 1986. "1986 
sera 1'annee de l'introduction de 
nouveaux produits" a dit Del 
Yocam, l'ancien patron de la 
division Apple //, devenu 
responsable de toute la 
production d'Apple. Acceptons 
en l'augure. 

Des logiciels 
pour I'Apple // 

On se desesperait, dit-on, chez 
Apple, devant le manque de 
logiciels crees pour 1'Apple //. 
C'est vrai que les developpeurs 
preftrent apparemment travailler 
pour le Mac. Pounant, tous n'ont 
pas abandonne l'ancetre. 
Version Soft mettrait actuel- 
lement la derniSre main a un 
incroyahle "Hinder", offrant sur 
1'Apple // toutes les facilites 
presentes habituellement a l'ecran 

du Macintosh. II ne resterait plus 

ensuite qu'ii creer des logiciels 
exploitant ce Finder, et notam- 
ment un "Mac Write" pour 1'Apple 



//. Version Soft vient d'ailleuis de 
remporter un succ^s qui lui 
permet "d'assurer" : son logiciel 
de communications avec utilisa- 
tion de la souris (Version Com) 
a ete choisi par Apple pour etre 
inclu dans une promotion 
comportant le modem Sectrad et 
un manuel de communications 
ecrit par Jacques Jean Bessifres. 

Ordinateur Express, lc dis- 
tributee de Jane, qui fut le 
premier programme integre avec 
souris (helas, trop leger), pour 
1'Apple // propose Janet, un petit 
programme pour apprendre la 
dactylographie, et etudie la 
possibility d'ameliorer Jane (for- 
mats de lettres pre-etablies et de 
feuilles de calculs toutes faites, 
formats de gestion des cartes de 
credit, date d'expiration des 
appareils mcnagcrs, archives 
d'articles de presse etc... ainsi 
que l'elargissement de la fcuille 
de calculs du tableur et des fiches 
du tableur). 

Chez Controle X, on met aussi 
la derni^re main & une gestion de 
fichiers facile S utilise r, emplo- 
yant notamment la souris. 
De 1'autre cote de l'Atlantique, les 
amateurs de programmation 
lorgnent avec inter6t sur le 
compilateur C de Manx Soft- 
ware Systems, (enfin disponi- 
ble pour le Prodos). Cette firme 
met la demifere main k une 
version 658 16 (pour 1'Apple // 16 
bits) de son compilateur Aztec 
C. Enfin, Manx propose une 
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gamme etendue de cross- 
compilateurs VAX, MS DOS, 
Macintosh, CP/M a destination 
del'Apple//. 

Broderbund se prepare a lancer 
Fantavision, un programme 
permettant de realiser des dessins 
animes : on dessme des images 
(par exemple un bonhomme avec 
un bras tendu le long du corps et 
une autre le bras leve), et 
l'urdinateux se charge de realiser 
toutes les images correspondant S 
la decomposition du mouvement. 
De tels programmes existaient 
deja, mais pour des mini- 
ordinateurs valant plusieurs 
millions de dollars... 

A remarquer, enfin, une nouvelle 
version du jeu d'echecs Sargon 
III d'Hayden utilisant la souris. 
L'Apple // ressemble, c'est deja 
vrai, de plus en plus au 
Macintosh. 

Des disques durs 
pour le Mac 

En attendant celui "officiel" 
d'Apple, les disques durs se 
multiplient. 

Le Macbottom de Personal 
Computer Peripherals, d'une 
capacite de 10 Mega-octet 
s'installe juste sous le Macin- 
tosh : sa taille correspond preci- 
seinent a celle de la base du 
micro-ordinateur (son epaisseur 
est inferieure a 7 cm). II se 
branche indifferemment sur la 
sortie modem ou imprimante du 
Mac. On peut le partitionner en 
volumes de taille variable, enfin, 
un "spooler" ineorpore permet de 
continuer a travailler avec l'ordi- 
nateur pendant que rimprimante 
fait son office. 

Le Paradise Mac 10 de 
Paradise Systems offre une 
capacite formattee de 10 Mega- 
octet, et se place a cote du Mac. 
Sa largeur : 3,5 pouces. Vitesse 

garantie : 5 fois plus vite qu'une 
disquette (vitesse de rotation : 
3600 tours/minute). Prix : 1500 
dollars. 

Quant au Sider de First Class 
Peripherals, les lecteurs de 
Pom's avaient deja lu sa 
description pour 1'Apple //. Le 



voici disponible pour le 
Macintosh ; Technologie Win- 
chester, 1 Mega-octet, fit surtout 
un prix "canon" : 695 dollars. 
L'appareil qui est vendu par 
correspondance aux Etats-Unis y 
fait un malheur. A ce prix, rien 
d'etonnant. 

Remplacer 
la souris 

On avait deja tout essaye pour se 
debarrasser de la souris : joy- 
stick, crayon et tablelte 
graphique, numeriseur. On 
croyait avoir tout vu. Eh bien il 
manquait encore & l'appel le 
VCS (View Control System) de 
Personics Corporation. Quel 
bizarre ustensile : un casque qui 
s'installe sur le crSne de 
l'utilisateur du Macintosh. Un 
emetteur & ultra-sons s'installe au 
dessus du Macintosh. II suffit 
ensuite de fixer du regard le point 
ou Ton souhaite que le pointeur 
se deplace sur l'ecran : le casque 

re9oit le signal ultra-sonore, les 
changements dans la rotation et 
Tangle de la lete de l'operateur 
sont transmis au Macintosh. Pour 
cliquer, on utilise un bouton qui 
se colle sur le clavier, juste en 
dessous de la barre d'espace- 
ment. Le produit parait loufoque, 
mais ce n'est pas un poisson 
d'avril. Prix; 199 dollars. 

Des logiciels 
pour le Mac 

Avec, pour commencer, Mac- 
Tell 2 de Hello Informa- 
tique. Cette nouvelle version 
permet toujours de transformer 
Macintosh en un Minitel 
intelligent, mais donne aussi la 
possibilite d'utiliser l'ordinateur 
comme terminal ASCII (et done 
d'avoir acc6s £ Calvados et au 
Club Apple) sans avoir & quitter 
le programme. Parmi les 
ameliorations : un editeur local 
permettant de lire, mettre en 
forme, ou rediger un texte, a 
l'interieur du programme, 
Amelioration des procedures 
automatiques, la possibilite de 
transferer directement des 



donnees dans Multiplan, Venvoi 
et la reception de fichiers (textes 
ou binaires), l'impression des 
procedures et textes editds, le 
reglage du mode de communica- 
tion, une commande de suppres- 
sion d'echo (pour la frappe des 
mots de passe), un mode veille 
(pour cviter le raccrochage 
automatique de Transpac), et une 
horloge affichee a l'ecran avec 
chronom&tre (au prix des 
communications, les mordus du 
Minitel apprecieront). En utilisa- 
tion ASCII, on peut communi- 
quer a 1200 bauds (m£mc avec le 
modem SectradMpple), on peut 
avoir acces aux procedures 
automatiques et au service de 
trace de courbes Graphis de 
Calvados, configurer le clavier, 
regler l'affichage, sauvegarder 
l'6cran ou le tcxte directement sur 
disque , imprimer en continu les 
li^nes re§ues, l'ecran ou le tcxtc 
selectionne. 

Bref, ce programme qui 6tait dej& 
le meilleur outil emulant le Minitel 
sur Macintosh est ddsormais 1'un 
des plus complets des program- 
mes de communication. 



Des logiciels 
graphiques 

Et d'abord VideoWorks dc 
Hayden. Un logiciel fantastique 
qui vous permettra de realiser en 
deux coups de cuiller un dessin 
amine de plusieurs minutes. Ce 
dessin peut ensuite etre sonorise 

avec de la musique. 
Les applications sont nom- 
breuses : animation de vitrine, 
presentation animee d'une 
courbe, de 1'evolution d'un 
produit, d'une tendance. En 
filmant avec une camera l'ecran 
du Macintosh, on peut realiser un 
film anime. 

Ce programme est vraiment 
capable de mettre en mouvement 
n'importe quoi. II inclut aussi 
deux accessoires bien utile : Tun, 
Art Grabber, installe dans le 
menu pomme, permet d'ouvrir un 
dessin MacPaint de l'interieux du 
programme. Le second Cheap 
Paint permet de Tetoucher le 
dessin sans avoir a utiliser 
MacPaint. Prix : 79 dollars. 
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Vraiment pas cher par rapport aux 
possibilites dc cc programme. 

On pcut aussi ouvrir des dessins 
de MacPaint de l'interieur d'un 
programme avec QuickPaint, 
un petit utilitaire produit par 
Enter Set. Une fonction 
"Miniview" permet de consulter 
tous les dessins d'une disquette. 
On peut ensuite agrandir le 
dessin, puis la partie de dessin 
interessanle, el la coupcr ou la 
copier. Prix : 50 dollars. Le 
meme £diteur vend aussi 
QuickWord, un utilitaire per- 
mettant de creer un glossaire dans 
MacWrite. Prix : 60 dollars. 

Un autre programme permettant 
de realiser des animations est 
produit par Ann Arbor Soft- 
works, e'est In Motion. Les 
actions a realiser sont represen- 
tees par des ic6nes. Le program- 
me est livre avec TotalPaint, un 
outil de dessin comportant la 
plupart des fonctions de Mac- 
Paint, et bicn sftr des sons, a 
ajouter aux graphiques. 

Enfin, PaintCutter de Silicon 
Beach Software est lun des 
outils inclus sur une disquette 
appelee Accessory Pak 1, 
PaintCutter permet d'ouvrir un 
dessin MacPaint sur toute la 
surface de 1'ecran (ce qui n'etait 
helas pas possible avec Mac- 
Paint). Une option permet de 
realiser des ecrans de demarrage, 
on peut aussi recopier dans un 
document MacWrite des docu- 
ments plus larges que la surface 
de 1'ecran. Ce programme est 
utilisable avec le Switcher. Prix : 
40 dollars. 

Pour le travail 
serieux 

A noter ; la nouvelle version (1.1) 
de Think Tank 512K. Cette 
version comporte des caraetfcres 
differents, fonctionne avec le 
Switcher, et est desormais 
compatible avcc Word et 
MacWrite. 

Remarquable la nouvelle version 
d'Overview de ProVue. Cette 
base de donnges est desormais 
relationnelle, permet de classer 
dans l'ordre alphabetique un 6tat 
de 20 pages en deux secondes, de 



realiser des graphiques. Les 
donnees peuvent etre importees 
ou exportees de MacWrite, 
Multiplan, MacTerminal, Lotus 
123, Appleworks, dBase II, 
etc., une fonction Clairvoyance 
permet a 1'ordinateur d'entrer 
correctcmcnt un mot ou un nom 
qu'on a deja utilise, en tapant 
seulement quelques unes de ses 
lettres : une sorte de glossaiTe 
automatique. Cc programme 
comporte aussi des macros 
commandes permettant de realiser 
des programmes automatiques. 
Bref, cette base de donnees 
relationnelles et automatisable est 
de la race des nouveaux program- 
mes sortis en ce debut 
d'automne, comme Omnis 3, 
Quatrieme dimension el Mac 
Base 500. Son prix : 295 
dollars. 

Une rumeur persistante affirme 
que Aston Tate, le crcatcur de 
Frameworks, Tun des plus 
intelligents des programmes pour 
1'IBM serait sur le point de sortir 
une version de ce programme 
pour le Mac, utilisant toutes les 
ficelles des fenetres, menus, etc. 
Si e'est vrai, 5a va faire mal ! 

De son c6te, Microsoft ne met 
pas tous ses oeufs dans le meme 
panier. D'un cOt£, il s'apprete k 
vendre Excel, porte-drapeau des 
programmes "anti-integres" de 

l'autre, il met la dcrnibre main k 
Productivity Software's 
Mouseworks : un programme 
integre comprenant traitement de 
texte, base de donnees, et tableur, 
qui serait au Mac ce 
qu'Appleworks est a 1' Apple //. II 
est vrai que Tequipc du createur 
d' Appleworks - Rupert Lissner - 
a rejoint Microsoft au printemps 
dernier. Prix prevu pour ce 
programme : 295 dollars. 

Integre ou non ? 

C'est done le debat de cette 
rentree. En clair : vaut-il mieux 
construire des programmes 
gigantesques et inlegres offrant 
toutes les fonctions imaginables 
(mais pas toujours k leur 
maximum), ou est il preferable 
d'utiliser simultanement plusieurs 
programmes dont chacun est le 
meilleur dans son domaine, en les 



faisant fonctionner ensemble avec 
le Switcher ? (Rappelons que le 
Switcher, developpe chez Apple 
permet de partitionner la memoire 
d'un Macintosh de 512Ko en y 
installant plusieurs programmes, 
qui peuvent communiquer entre 
eux). 

Avec Jazz, Lotus a choisi la 
premiere option. Las ! Ses 
premiers utilisateurs commencent 
a s'aviser que la base de donnees 
est un peu "simplette", que le 
tableur ne comporte meme pas la 
possibility de lier entre elles des 
feuilles de calculs, que les 
"macros" (commandes automati- 
sees) sont absentes. 

Avec Excel, MicroSoft a 
precisement choisi Toption 
inverse. Ce tableur ou seuls les 
graphiques sont integrcs offre ce 
qu'on peut realiser de mieux dans 
le domaine (et notamment ces 
fameuses "macros"). Pas de 
traitement de texte ? Peu importe. 
On utilise Excel et Word avec le 
Switcher (et bien sur un 
Macintosh de 512Ko) et on ajoute 
au meilleur des tableurs, le 
meilleur des traitements de texte. 
Une fraction de seconde suffit a 
transferer des donnees ou des 
graphiques d'Excel dans Word. 

Les programmes integres sont 
devenus de veritables monstres. 
Les lignes dc programme sont si 
nombreuses, que l'utilisation de 
nombreuses disquettes s'impose 
de toutes fa^ons. Le "debuggage" 
se fait problematique. El, au bout 
du compte, les utilisateurs 

disposent de fonctions qu'ils 
n'utilisent pas forccmcnt. 
I,e Switcher leur rend la liberte de 
choisir le meilleur programme de 
sa categorie, et de l'associer avec 
un autre programme, lui aussi 
excellent. La possibility d'etendre 
a 1 Mega-octet la memoire vive 
du Macintosh donnera a ce 
veritable "pont inter-program- 
mes" toute sa valeur. Or, 
precisement, le Switcher, qui en 
est deja k sa version 3.9, se 
perfectionne. II serait notamment 
capable desormais de faire 
fonctionner le Macintosh en 
"multitSches' 1 . En clair, meme si 
on fait basculer le Macintosh sur 
un des programmes du Switcher, 
les autres programmes continuent 
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Courrier 
des lecteurs 

Olivier Her z 



S fonctionner. On peut ainsi, par 
cxcmplc coramcncer S ecrire un 
texte, pendant que le tableur 
rccalcule cies formules. Si avec le 
Switcher, le Mac accede au rang 
d'ordinateur "multMches", la vie 
des programmes integres risque 
de devenir decidement tres 
difficile. 



Adresses 

Micro Magic 

Millersville, MD USA 

Com Log 

Scottsdale, AZ 

Manx Software Systems 
Box 55, Shrewsbury, NJ 07701 

Version Soft 

66, rue Castagnary - 75015 Paris 
Controle X 

94, rue Lauriston - 75016 Paris 

Ordinateur Express 

3, rue Pelouze - 75008 Paris 

Hay den 

600 Suffolk Street Lowell, 
MA 01854 

Personal Computer 
Peripherals Corporation, 
6204 Benjamin Road Tampa 
FL 33614 

Paradise Systems 
Tel. : (800) 5527 7977 
en Calif ornie 

First Class Peripherals 

3579 Highway 50 East, 
Carson City NV 89701 

Person ics Corporation 

2352 Main street, Concord 
MA 01742 

Hello Informatique 

1, rue de Metz - 75010 Paris 

EnterSet 

410 Townend St, San Francisco, 
CA 94107 

Ann Arbor Softworks 
308 1/2 S. State Street, 
Ann Arbor MI 48104 

Silicon Beach Software 

POBox 261430 San Diego, 
CA 92126 

ProVUE 

222 22nd St, Huntington Beach, 
CA 92648 



Je voudrais vous signaler un true 
au sujet des masques ; il est 
annonci dans Pom's qu'ils 
occupent 6 secteurs sur la 
disquette. En fait, on peut faire 
entrer un en 5 secteurs tris 
facilement. II suffisait de se 
souvenir (ces informations m'ont 
£ti fournies par le livre "Beneath 
Apple Dos") qu'un fichier 
requiert un secteur seulement 
pour la liste des pistes! secteurs. 
Or, les $400 (1024) adresses de 
Vecran devraient tenir en 1024:4 
= 4 secteurs, done au total 5. 
D'ou vient le secteur supple- 
mentaire ? II y a deux raisons : 
premie rernent, un fichier binaire 
commence par 4 octets indiquant 
I'udresse de chargement et la 
longueur. En plus, un bug du 
Dos (signale dans le livre priciti) 
fait qu'il y a toujours un octet de 
trap icrit dans un fichier. Quels 
sont les remides pour eliminer 
ces 5 octets qui dibordent ? On 
suit depuis le n° 1 qu'un icran 
texte est criblS de "trous" de huit 
octets, a chaque fin de groupes de 
128 octets. La fin de Vecran 
coincide, juste ment avec ces octets 
superflus, c'est-H-dire que la 
vraie fin de V image texte est a 
$7F7 (dernier octet). Done, la 
longueur utilisable est de $3F8 et 
non $400. Pour corriger 
Gesmask, il suffit de modifier la 
ligne 605 en remplacant le 
puramhtre "LI 024" par "L$3F8". 
Pour Gesmask Modifii, ce sera la 
ligne 609. Ilfaut noter que cette 
astuce marche aussi pour les 
images HGR : on peut les stocker 
en 33 secteurs avec : BSAVE 
nom, A$2000 (ou 4000 pour 
HGR2), L$FF8. Enfin, une autre 
astuce pour de beaux listings. En 
ecrivant des REM, et en les 



listant, on est forci de voir 
imp rimer les "REM" avec leur 
numero de ligne. II existe une 
astuce facilement accessible avec 
un He ou c, qui consiste a insirer 
des caractires Del (ASCII 127), 
ce qui a pour effet sur la plupart 
des imprimantes (du mains sur 
Epson), d'effaccr un caractcre du 
buffer. II faut done icrire, juste 
apris une REM, 6 caractires Del 
plus le nombre de Del 
correspondant au nombre de 
caractires quiforment le numiro 
de ligne, ni plus ni moins. 
Une petite annonce :j'ai trouv£ la 
solution complete du jeu 
d'aventure Dark Crystal, avec les 
plans et touv les details. Si vous 
etes coiners, Scrivez-moi et je 
vous repecherai. Sachez en tout 
cos que le gros bon sens rigne 
dans ce jeu : les endroits 
intiressants sont tous marquis 
d'un indice particulier. Bonne 
chance! 

Thierry HAN 
Ambassade de Corie 
B.P. 301, 

Yaounde CAMEROUN 



Sans doute avez-vous remarqui 
qu'avec le DOS 3.3, lors de la 
lecture d'un fichier TEXT avec 
MON I actif, les minuscules 
apparaissent sous forme de 
caractires en inverse. Ce n'est 
pas bien grave, mais il me semble 
que Von puisse y remldier. 
V instruction 9FAA - ST A 
$AA5C semble inutile puisque 
Vaccumulateur conticnt justement 
le car ac tire stocke en $AA5C. Je 
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propose done le patch suivant : 
9FA7.-EA NOP 
9FA8: 09 HO ORA #$HQ 

9FAA: 20 C5 9F JSR $9FC5 

Yvan KCENIG 
Mosaique GERBINO 
4, avenue du Stade 
06220 VALLAURIS 



D'apris le "Reference Manual" et 
bien d'autres icrits, les memoir es 
SCOOO & COOF son: equivalentes. 
Pourtant, en itudiant certains 
programmes professionals 
(Print Shop, Dbmaster, par 
exemple), on rencontre des 
chases telies que : 
ST A $ COOO 
STA $ COOC 
STA $ COOE etc... 
Estce simplement une coquetterie 
ouy-a-t-il une raison ? 

Bernard GIBERT 
clo Total-Irtdonesie 
P.O. Box 6 
BAL1K PAP AN 
EAST KALIMANTAN 
INDONESIA 

U est exact que sur l'Apple II-s 
les adrcsscs SCOOO a $C00F 
(KEYBOARD) et SC010 a 
SCO IF (KEYBOARD STROBE), 
sont identiques. Mais il n'en est 
plus du tout de raenie sur le //e el 
le He. Vous trouverez ci-contre 
les adresses du //e telies qu'on les 
extrait & divers endroits du 
Manuel de References.=* 



En raison kesoins tris 
particuliersj'ai iti ameni a icrire 
moi-mime un programme de 
gestion de fichiers en accis 
direct. II est icrit en Applesoft, 
sous DOS 3.3. J 'utilise pour le tri 
la "routine de tri rapide en 
assembleur", parue dans le n° 11 
de Pom's. L'ensemble, tris 
facilement adaptable, me donne 
entidre satisfaction. Or, voici que 
j'ai un nouveau fichier a icrire 
qui atteindra, et mime 
probabiement, depassera le 
M£%<t'OCtet, Tout naturellement, 
jaipensi a utiliser ProDOS. J'ai 
pu, sans problime, transferer le 
programme basic et V adapter a ce 
nouvel environnement. Par 



nam 



Hat aires leclicr 



fonction 



KEYBOARD - SCOOO 

80STORE off SCOOO 

" on SC001 

KAMKl) Off SC002 

" on SC003 

RAMWRT Off SC004 

" on SC005 

SLOTCXROM off SC006 

on SC007 
ALTZP off - SC008 

on SC009 

SLOTC3ROM off SCOOA 

on SCOOB 

80COL off SCOOC 

on SCOOD 

ALTCHARSET off SCOOE 

on $C00F 



KRDSTRfl 



TEXT 

ii 

MIXED 

it 

PAGE2 



HIRES 



SC010 
SCO 10 
SCO 13 
SC014 
SCO 15 
SCO 16 
SCO 1 7 
SCO 18 
SCO 1 9 

SC01A 
SC01B 
SC01C 
SCO ID 
SCO IF 

off SC050 

on SC051 

off SCC52 

on SC053 

off SC054 



on SC055 



off SC0S6 . 



on SC057 • • 



lecture du clavier 

utiliser RAMKD/RAMWRT 

acces aux pages d'affichage par PAGE?. 

lire en memoire principale 
lire en mamoire auxiliaire 
6criie en mamoire principale 
eCTire en memoire auxiliaire 
ROM interne en SCxOO 
ROM dun panpharique en SCxOO 

pile, page et carte langage en memoire 

principale 

pile, page f) et carte langage en memoire 
auxiliaiic 

ROM interne en SC300 
ROM d'un p^riph^rique en SC300 
aflichage en 40 coionnes 
affichage en 80 coionnes 
ensemble primaire de caracieres 
ensemble alternatif de caracteres 

remise a du clavier 
lire l^tai de ALTCHARSET 
lire ratal de RAMKD 
lire ratal de RAMWRT 
lire ratal de SLOTCXROM 
lire l'atat de ALTZP 
lire ratal de SLOTC3ROM 
lire ratal de 80STORE 

lire la suppression verticale (POM'S 17 
page 54) 

lire ratal de TEXT 
lire ratal de MIXED 
lire ratal de PAGE2 
lire ratal de HIRES 
lire ratal de 80COL 

mode graphique 

mode texte 

mode non-mixte 
mode mixte 

acces page 1 (si 80STORE est off) 
acces mamoire principale (si 80STORE 
est on) 

acces page 2 (si 80STORE est oft) 

acces mamoire auxitiaire (si 80STORE 

est on) 

acces basse rasnlulinn (si ROSTORE est 
off) 

PAGE2 commute la page texte (si 
80STORE est on) 

acces haute rasolution (si 80STORE est 
off) 

PAGE2 commute aussi le hires (si 
80STORE est on) 



nouvel environnement. Par 
contre, je ne sais comment 
adapter la routine de tri. 
Pourriez-vous me conseiller ? 



Georges DELARUE 
2 Chemin des Chambons 
38650 MONESTIER 
CLERMONT 



DE 
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Le programme TRITABLEAU. 
OBJQ est compris entre les 
adresses $9AA6 et $9C3A ; 
c'est-d-dire en plein milieu des 
buffers du DOS. Par consequent, 
il ne peut marcher tel quel sous 
ProDOS, et il faut le faire 
fonctionner h un autre endroit. 
Transferons, par exernple, en 
$90A6-$923A. Deux methodes 
sont possibles : 

- si vous avez l'assembleur 

ToolKit, changer la ligne 28 du 
fichier source en ORG $90A6 et 
rcasscmblcr, 

- sinon, faire les operations 
suivantes : 

BLOAD TRITABLEAU.OBJO, 

A$90A6 

90AC:90 

90CE:90 

90FB:92 

911D:92 

BSAVE 

TRITABLEAU.OBJ0,A$90A6,L 
$195 

II ne reste plus qu'k transferer 
TRITABLEAU.OBJO et 
cventuellement les programmes 
de demonstration en Applesoft 
sur une disquette ProDOS. II 
faudra faire commencer tous les 
programmes Applesoft utilisant la 
routine tri par HIMEM:37030 
($90A6=37030), afin de ne pas 
ecraser la routine avec les 
variables des programmes 
Applesoft. 



De nombreux lecteurs nous ont 
demande une recapitulation des 
sujets abordes dans cette 
rubrique. 

Nous vous proposons done 
ci-contre une liste classee par 
mot-clef des principaux sujets 
abordes. Cette liste, non exhaus- 
tive, renvoie aux differents 
numeros de la revue ou aux 
recueils. 



Nous vous laissons juges du 
caract^re arbitraire du choix des 
mots servant de clef. . . 



15 APA : Un bug corrige 

1 8 AppleMouse II 

14 Applesoft, Moniteur et Carte 
langage 

15 Apple Writer : Un true 

14 AppleWriter et Epson 
FX80/FT 

10 AppleWriter lit (Patch pour 
code ASCII 0) 

R2 Asterisque en Pascal 

19 Basicium et ProDOS 

16 Beepameliore 

17 Calculs financiers 

11 Calendrier perpetuel sur 
Visicalc 

1 Carte memoixe Apple //e 

13 Chat Mauve 

12 Chat Mauve et Epson 
10 Chat Mauve etPFS 
R2 Choose sur Visicalc 

9 Club Apple/// 
R2 Clubs de Paris 

Rl Compacter les programmes 

1 5 Comparaison de programmes 
Basic 

14 Compatibility Apple 

10 Controle de la carte langage 
sur//c 

16 Copya, Pascal etCP/M 
Rl Curseur en mode Flash 

18 Date ProDOS 

12 217 fichiers par disquette 

14 Del sur Apple //e 

17 DIF.OBJ : Un bug 
17 Disk Manager 2 

17 Disque virtuel 

1 8 Disque virtuel 64 Ko 

17 Edition dejeux 

16 Sen Basic 

15 6 sur Od 84 

11 Entrees/sorties : reprogram- 
rnation 

19 Eprom d'Epson 

18 Exec en Pascal 

18 Gesmask et OKI 82 A 

17 Hard Copy 80 colonnes sur 
DMP 



10 Hard Copy sur Selkosha 

12 Hard Copy Texte 

9 Hello Complet et page 3 

13 Gescompte ameliore 

9 Graphiques, quand tu nous 
tiens (Patch pour Epson 
MX-82IIIF/T) 

16 IBM 36 vers Lisa 

18 Icare : comment le charger 

1 1 Init dans un Exec 

1 6 Mac et ImageWriter 
Rl Mini-assembleur 

10 Minuscules sur Seflcosha GP 
100 

9 Moniteur etendu (Patch) 

14 Multiplan et Centronics 152 
14 Nouvelles touches du I ft 

Rl Numeros de volume (neutra- 
liser le controle) 

10 Numeros de Volume : 
stockage sur la disquette 

1 3 Matgraph (erratum) 

1 2 Microc oupures, surchauffe . . . 

14 Pascal 1.1, 1.2. 

12 Peek et Poke : errata 

11 Physique relativiste 

10 PES et Chat Mauve 

9 Planehe h. voile ! 

1 1 Point ON ou OFF sur l'ecran 
HGR ? 

13 Poke 214,255 
R2 Poke 333,33 ! 

16 ProDOS et Eprom 2716 

18 Programmaiion facilitee, en 
80 colonnes 

R2 Programmation facilitee (k 

propos de...) 
16 Purplesoft 

19 Recuperer un 6cran 80 
colonnes 

Rl Reset 

15 Radiotelegraphie 
R2 Rom IX 

15 Secteurs libres sur disquette 
R2 Splittage des programmes 
Basic 

18 Startup et Date en Pascal 

10 Tdump de fichiers TEXT sur 
ccran ou imprimante 

10 Trace rapide de cercles en 
HGR 

19 Transformer un tableau de 
chaines en fichier binaire 
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Disquettes 

HAIFA source (cf. Pom's n 

H-BASIC (cf. Pom's n 

MUSIC (cf. Pom's n 

DBSTAG (cf. Pom's n 

JEUX A < cf - Pom ' s n 

JEUX B (cf. Pom's n 

BASICIUM (cf. Pom's n 

E.P.E. (cf. Pom's n 

PASCAL (cf. Pom's n 1 

MAX (Moniteur etendu) (cf. Pom's n 

DOMINOS (cf. Pom's n 



5) a 55,00 F 

8) a 150,00 F 

10) a 80,00 F 

11) a 450,00 F 

12) a 80,00 F 

12) a 80.00 F 

13) a 150,00 F 

15) a 150.00 F 

15) a 80,00 F 

18) a 150,00 F 

19) a 80,00 F 



Recueils 



N% recueil des revues 1 a 4 a 140,00 F 

Disquettes d'accompagnement 1 a 4 a 150.00 F 

N D 2, recueil des revues 5 a 8 a 140,00 F 

Disquettes d'accompagnement 5 a 8 a 190.00 F 



Anciens numeros 



Revues 4 7 8 a 35,00 F 

Revues 9 10 11 12 13 14 15 16 17 18 19 20 a 40,00 F 

Disquettes Apple II, //e, //c 

1/2 3 4 5 6 7 8 9 10 11 12 a 55,00 F 

13 14 15 16 17 18 19 20 

Disquettes Macintosh 

14/15/16 groupees a 150,00 F 

17 18 19 20 a 80,00 F 



AbonnementS Pour 6 numeros a panirdu n B I 

Abonncment a la revue seule a 200,00 F 

Abonnement revue + disquettes Apple n, //e, lie a 480,00 F 

Abonnemcnt revue + disquettes Macintosh a 600,00 F 



Total TTC : 

Supplement avion hors CEE : 15,00F par numero et/ou disquette : 

Montant du regie/merit : 

Envoyez ce ban et votre rkgiement a : EDITIONS MFV, 64 nie des Chantiers 78000 VERSAILLES 

Norn : 

Adresse : 



Impnmene Rosay, 94300 Vincennes, Impnme en France. &epoi Je^l . 5eptemt»ie K. ft" 2767 
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Applemania 



Symptomes. 



OL'I SON 

1. Je veux connaitre PRODOS sans etre un pro 
duDOS □□ 

2. Ami des betes, je cherche un chat a puces pour 
coloricr ma souris cn mauve 

3. Devenir a I'aise comme Blaise en Pascal, quel pied ! CH D 

4. Mon baud a 7 bits cherche un 8 r pour completer 
son protocole X-On X-Off en vue dune liaison 
durable □□ 



UUl NUN 



5. Pianoter des nuits entieres, e'est planant. Mais 

planer tout seul, e'esi frustrant. D Q 

6. Je veux relier mon lave vaisselle a mon Apple II D D 

7. Appeler un S.O.S. informatiquequand 

la technique coince, qa depanne. d Q 

8. Je veux apprendre a mieux gerer mon bureau 

en le jetant par les fenetres de Macintosh. D [j 



3 QUI et MOIN'S : vous «o en pleine 4 a 7 QUI vous cics cnntagteur. vnm 8 a 10 QUI bravo. wne7 H'wgenrr rultiwr 
incubation', prcnez des mesures : serrz bien cnioure au Club Apple. voire passion au Club Apple. 



Remede « rejoignez le club apple 

Plein, plcin d'avantagts vous v attendent : 



- une messagerie elect ronique gratuite; 

- un numero de telephone pour consuher les ingeaieuis 
Apple 7 jours sur 7 ; 

- tous les mois, le journal du Club : 
L'Echo des Apple ; 

des conferences, reunions d'information, projections 
privees er renronrres avec des "pros" ; 



- des stages ({"initiation et de perfectionnement animes 
par les "gourous" du Club ; 

- des voyages organises en Californie ; 

- une librairie speciale Club; 

• un Apple Check pour beneficier de conditions de 
credit prcferentiellcs ; 
des rencontres organisees awe d'autres 
Applemaniaques. 



BULLETIN REPONSE 

Je desire recevoir, sans engagement (Je ma pan. une documentation complete sur le Club Apple et vare formulairc d instnpnon. 
NOM 



AD8ESSE. 



-CODE POSTAL 
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FICHES TECHNIQUES detaillees des micro- 
ordinateurs du marche (de 400 a 60 000 FF). 
Le GUIDE MICRO vous fournit une foule de 
renseignements precieux. 



BANCS D'ESSAI approfondis d'ordinateurs et de 
logiciels (gestion, utilitaires, jeux). Le GUIDE 
MICRO prend parti et dit lesquels acheter. 



TABLEAU geanl des 125 irnpriroant.es vaiant moins de 
15 000 FF. Le GUIDE MICRO vous aide a choisir en 
fonction de vos besoins. 



1 

3000 



ADRESSES utiles : boutiques, 
clubs, constructeurs. Le GUIDE 
MICRO les repertorie par ordrc 
alphabetiqueet par departement. 



2 septembre 1985: 
LE GUIDE MICRO est vendu 39 FF 
chez votre marchand de journaux. 



Que vous soyiez professionnel ou amateur, chevronne ou neo- 
phyte, le GUIDE MICRO est un « must ». Une aide decisive avant 
I'achat d*un micro ou d'une imprimante. Un outil de reference tout 
au long de I'annee. Ne le manquez pas ! 

LE GUIDE MICRO 



I'ORDINATEUR 
LlNDIVIDUEL 



